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The "Disney of 
TRS-80 Animated 
Graphics, tells you how 
to "LINE PACK" a 
program! 
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LOBO DRIVES' new LDOS™ 
Disk Operating System is loaded 
with outstanding features that will enable you 
to realize the full power and potential of your 
TRS-80* With LDOS, you can support up to 
eight drives (5 Viand 8-inch drives, double-sided 
drives, double-density drives, 80-track drives), 
including the new 8-inch and SVi-inch 
Winchester fixed disk drives, in any 
combination. 

Other LDOS muscle building features 
include: ISAM accessing techniques; keyboard 
typeahead; Graphic string packer; Dated files, 
Marked files; File transfer by class; Built-in 

* TRS-SO is a registered trademark ot Radio Shack, a Tandy Company. 
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LOBO DRIVES, INTL 
354 South Fairview Ave 
Goleta, CA 93117 
(805) 683-1 576 



lower case display drivers; 
Non-breakable AUTO and DO 
commands, and many, many more. 

LDOS is the perfect operating system to 
use with your LOBO DRIVES LX-50 or LX-80 
expansion interface and disk drive 
subsystems. There's even an 800 number 
for instant service. To find out how you can 
put more muscle into your TRS-80, contact 
your nearest LOBO Drives dealer or call or 
write. 

LDOS is available: 

A. Operating System Diskette 
with Master Reference 
Manual 
$139 

B. Master Reference Manual 



$25 




.. this is not only a worthwhile book 
but a great book. My advice is to get it 
and USE it!' - William Barde 
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31 2 pages 
$29.95 



'It has twelve thousand one-liners 
in it, and every one is great!' 
- Dennis Kitsz. 



hone orders (714) 946-5805 



IJG Computer Services, 
1 260 W. Foothill Blvd., 
Upland, CA 91786 
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TRS-80 Disk & Other Mysteries is the 
definitive fixit book for disk users. More than 
130 pages of easy to read, entertaining and 
immensely useful information - find out how to 
recover disk files, the layout of information on 
disks, memory maps, problem solutions ... the 
ist goes on! 

Many readers have saved days of work by 
recreating disk files that were unreadable. 
With morethan 1 4,000 copies sold sofar, TRS- 
80 Disk & Other Mysteries has received 
favourable reviews in several magazines. 
Yours for only $22.50 (plus $1.50 shipping, 
CA residents add $1 .35 sales tax). 

Microsoft BASIC Decoded & Other 
Mysteries is the definative guide to your Level 
II ROMs. With morethan 7,000 lines of detailed 
comments, and 6 additional chapters packed 
with information, it is easily the biggest and 
best book about the Level II ROMs available. 

Written by James Farvour, the comment 
section took more than a year to finish - it even 
includes the changes for the latest ROM sets 
Edited by Jim Perry, the founding editor of 80 
Microcomputing, the text and comments are 
understandable. 

Exploit the full power of Microsoft BASIC, with 
the aid of more than 300 pages of tested 
examples, explanations and detailed 
comments. Only$29.95 (plus$2.00 shipping, 
CA residents add $1 .80 sales tax). 

Pick them up at your nearest IJG dealer, phone 
your order in or use the coupon. 



JG Computer Services, 
1260 W. Foothill Blvd., 
J* Upland, CA 91786 

Please send me a copy of TRS-80 Disk & Other 
Mysteries for $22.50 plus $1 .50 shipping. □ 

Please send me a copy of Microsoft BASIC 
Decoded & other Mysteries for $29.95 plus 
$2.00 shipping. □ 

OK, send me both IJG books for $52.45 plus 
$3.50 shipping. □ 



Name 

Address 

City 

State Zip 

Charge my 

□ Mastercard interbank Code 

□ Visa Expiration Date 
Card Number 

□ Check enclosed 

□ Ship COD ($2.00 extra) 




Signature 
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Publications are like any other 
business. It may not seem so to the 
casual observer, but it's true. They 
have the same problem as everyone 
else - income, expenses and growth. 

It is almost a full-time activity of the 
publisher to worry about cash flow 
and the state of the business. The 
business must support those who 
work there in a style at least 
somewhat close to what they are 
accustomed to. (Sometimes you even 
settle for less.) 

Other things not immediately 
apparent to the casual observer 
include such things as a reduced price 
subscription drive. Haven't you ever 
wondered how some magazines can 
give you such a deal on a first-time 
subscription. It almost looks like they 
give it away for less than cost. 

There are many things to balance in 
running any business. At todays 
printing and postage costs, the price of 
a subscription is literally eaten away. 
The profit, if there is any, must come 
from advertising revenue. 

An advertiser wants to know how 
many people will see his ad per 
advertising dollar, and rightly so, since 
he doesn't want to buy a pig in a poke. 
Sheer numbers are important. The 
advertiser not only wants to know how 
many dollars perthousand readers, he 
expects to see results, and will 
measure the success of his 
advertising campaign by the returns 
he receives. 

The publisher and editor, on the 
other hand, must insure that the 
readers are satisfied with the editorial 
content, so that the publication will 
continue to sell. The advertising 
versus editorial content of the 
publication needs to be fixed at some 
ratio, determined by the "horse 
sense" of the editor/publisher. The 
advertising percentage must be large 
enough to pay the freight, but not so 
large that articles of interest to the 
reader are left begging. The article 
content must be picked carefully, so 
that there is something in each issue 



for the majority. Incidentally, 
advertising in itself can be an 
education at times. 

Getting the right "mix" is 
interesting, challenging, fun and 
frustrating - all at once. It's difficult to 
get the "feel" of the mood of both 
readers and advertisers ahead of time. 
You almost have to screw up before 
you know about it, a nd the fun part of it 
all is trying not to. 

Back in the good old days of 1978 
' and early 1979 I ran the Journal 
single-handedly from the family room 
of my residence. The overhead was 
low, but so was the income, and 
sometimes I went a month or two 
without pay. But it was exciting and 
fun. Almost all the production was 
farmed out (and it showed, but I didn't 
know any better), and there were 
actually a couple of weeks between 
issues with nothing to do. 

Now, we have our own building and 
production is done in-house (all except 
the actual printing). We have a very 
dedicated group of people working full 
time on the Journal and are growing 
rapidly - so rapidly that at times it 
hurts. The individual attention we 
used to give our old and faithful 
readers is sometimes not there 
anymore. Renewal notices are run on 
a regular schedule and sometimes 
your payment and our notice cross in 
the mail. 

Have faith gentle reader, we still 
believe you are the most important 
commodity we have, and we wili 
continue to customize and streamline 
our operation to cover the most with 
the best. 

Our recent advertising campaign, 
featuring a reduced rate, first-time 
subscription (which ended 31 Mar 81 ) 
was a tactic designed to increase our 
numbers, and thereby increase the 
value of the product we provide. Our 
heaviest attrition is during this period, j 
and we needed to bolster our cash- 
flow and even up both ends. It 
exceeded our expectations, and the 
end result is that you who did not 
benefit directly from the reduced price 
will have an even better Journal in the 
issues to follow. 

We have seen too many really good 
publications come and go. They go 
mostly due to bad judgement or 
management. It is still a case of dollars 
in versus dollars out (and make a good 
saleable product in between). Hang in 
there folks, we intend to be around for 
a long time! Mike 
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Letters 




Would you please thank Andy and his 
pal for the calendar program. It worksl 

I have twin TRS-80 H's with disks, 
printer, and a Daisy Wheel. I am not 
displeased which, considering my 
"mainframe" of mind, is a very superlative 
statement. 

In a back issue, have you ever done an 
article on the disk drives? I am looking for 
an article about disk reads and writes. I 
know nothing about their design, but I am 
now beginning to believe that the disk 
drives are not mechanically separate. 

I have a series of payroll, check printing, 
and report producing programs which use 
the TRSDOS on "0" with the weekly and 
year-to-date data on Drives 1 , 2, or 3. Some 
of these programs read and write with 
hardly a murmur while others in the series 
sound like a Model T. I built FOR NEXT 
LOOP delays into some of the programs; 
but even when these data are spread over 
all three drives, some programs sound 
"Chunky — with nuts" -- and bolts? 

Do you have any thoughts on the matter? 

F. L. Eskholme 
S W E D U M 
Data P r ocessing 
Nutley, NJ 

(Radio Shack, in all their wisdom produced 
two mechanically different drives for the 
Model I. The first, from Shugart, produces 
noise by loading and unloading the head. 
This noise can be silenced by maintaining 
the head in a loaded condition, but with the 
size of the 5 1 A" drives, the solenoid will 
eventually overheat and cause other 
problems. The second drives, from Tandon, 
produce noise when moving from track to 
track and cannot be silenced. The head is 
never unloaded. 

The Model II uses a Shugart drive in and 
CDC drives in 1, 2, and 3. Noise is caused by 
head loading and unloading. However, only 
one drive is loaded at any one time, so 
when different drives are selected you will 
hear a combination of heads loading and 
unloading. We know of no solution to this 
problem as it seems to be common to this 
type of drive mechanism regardless of the 
manufacturer. E dj 

I just received my copy of the 
March/April issue of 80-U.S It was badly 
tattered and several pages were actually 
missing. 

Could you please send me another copy 
of that issue, this time in an envelope or 
other wrapper. I permanently bind each 
year's issues and would like to have a 
permanent — and readable — set. 



For the future, please consider mailing 
your magazine in a wrapper of some kind 
You have a fine publication — you should- 
give it the respect it deserves 

James H. Fox 
Afton, MN 



(It seems we got a lot more complaints this 
issue than most The problem lies with the 
postal service as the magazines leave 
bundled and in mint condition from 
Tacoma, Washington Complaints should 
be directed to the post office, your 
representative or senator, and possibly to 
President Reagan, suggesting postal 
employees paychecks be delivered through 
the mail attached to copies of 80 U.S. 

The possibility of wrapping the magazine 
would result in increased costs which 
translates directly into high subscription 
rates. We'd like to hold the price there as 
this publication has never had an increase 
However, we are open to suggestions- so 
put them in writing and we'll continue to 
explore the possibilities Ed) 



Just read your Jan/Feb issue and 
wanted to correct a couple of statements 
made in Bill Vick's article "A Pocket 
Computer Application." He states the 
Pocket Computer "can store a program up 
to 999 lines long." This is not true. The PC 
stores each line number as two steps or 
memory, each command as one step of 
memory, and (ENTER) as one step of 
memory. Your shortest possible program 
line takes up 4 steps of memory and might 
look like this: 

100:REM(ENTER) 
Since we are limited to 1424 steps of 
memory, the maximum number of 
(shortest) program lines would be 356, not 
999. However, the line numbers 
themselves can go up to 999. 

Mr. Vick also states "each program step 
was entered in the abbreviated format to 
save memory." Since each command word 
is stored as one step of memory, 
abbreviating them does not save any 
memory. It does allow for faster input of 
your program, though. 

Thanks to Mr. Vick for hisfine application 
and my continuing thanks to 80-U.S. for 
your fine magazine. 

Dick Stransky 
Madison, Wl 



(And our thanks to Mr. Stransky for his 
corrections. 

One additional thought... the 
Pocket Computer will store a commandas 
one step no matter how that command was 
entered. ^ 



RE: NFL-PIX by James Talley 
I certainly enjoyed using the above 
program for this past football season. 
Would you please let me know what is 
required for me to get an update of the 
program before the beginning of next 
year's football season. Thank you. 

Peter J. Broullire III 
Albuquerque, NM 

On January 21 , 1 981 , I bought one of your 
NFL PIX Programs, designed for 16K TRS- 
80 Level II. I don't have the disk drive but 
instructions say "CLOAD" works for 
cassette load. This I found to be true. 

It seems likely that the program, in basic 
(I gather from the literature accompanying 
the cassette that the whole program is in 
Basic), was developed for a TRS-80 Model 
I Level II System. 



Problem 1 

I have a TRS-80 Model III, which was 
touted to be nothing more than an 
advanced, improved version of the Model I. 

As I mentioned, the program CLOADs 
fine, but, when I run it, the title "page" 
shows up on the screen for about 10 
seconds then I get an "OM ERROR" 
message in line (X). I check the amount of 
memory left in the computer by the 
"?MEM" command. It tells me I have 104 
remaining. 

Problem 2 
I remove the program from the computer 
and reset. ..then check memory. It tells me 
"15314"... 

I would like to know if you have come 
across Problem 1. If so, what is the 
modification in the "NFL PIX" program to 
let it "run" smoothly. Or, is it impossible to 
convert the program. Please let me know 
somthing about this problem. I am not an 
experienced programmer, but, whatever 
you tell me. ..I can get a clarification from 
the local Radio Shack Computer Center. By 
the way, in talking to Radio Shack (New 
Orleans) they told me that since this is not a 
Radio Shack program, they couldn't help 
much but, suggested that if you ran into 



4 80-U.S. Journal May/Jun 1981 



answer it too, transcribe 
sions, decode bm 
receive/send radic 
answer/origmate, m 
to the phone system. Take a look 
at all the software 
why it's a modem 



MCROCONNECTION 

For Model I or III, decodes the TRS-80 buss and 
creates RS232 pott Eliminates need for expansion 
box and/or RS232 board. Provides serial printer 
output Requires software written for Port 208. 
Requires adapter cable for Model III— $249.00 
RS232CONNECTION 

Works with virtually any computer or terminal having 
RS232 serial I/O pott Replaces obsolete acoustic 
coupled modems. Compatible with all TRS-80 ter- 
minal software. Requires RS232 cable— $199.50 
COLORCONNECTION 
Converts RS Color Computer into a timeshare 
terminal. Provides serial printer output Does not 
require additional memory or extended 
basic— $199.50 
AUTOCONNECTION 

This option permits modems (except color) to 

answer the telephone and/or dial numbers 

automatically. Supplied with dialer demonstration 

program— $79.95 option 

EUROPEANCONNECnON 

This option modifies above units for European 

Standards— $20.00 option 

MODEL ffl ADAPTER 

Cable converts Model III 50 pin buss to 40 pins 

used by Model I peripherals— $39.95 

RS232 CABLE 

Four foot ribbon cable terminated with 25 pin male 
DB25 connectors— $24.95 
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(ART TERMINAL PROGRAMS 
N BY DICK BALCOM 

All smart terminal programs feature manual or auto- lower case drivers, autorepeat key, "beep" function 

made upload/download, two user defined messages for keystroke entry, buffered print output with page 

plus auto "who are you" interrogation, autoprompt and perforation skipover, compatible with SCRIPSIT 

message entry, transfers EDTASM and Orchestra 80 and PENCIL, built-in text generator for those who 

files formatting of line length, speed selection, upper do not have a word processor. 



SMART80D 

The LEADING smart terminal program for Model I 
and at a popular price. Requires one drive and 
3248K. Compatible with all major disk operating 
systems including double density— $79.95 
SMART DID 

The FIRST smart terminal program for the Model 
01. Offers popular features of SMART80D plus 
several new features associated with the 
Model III— $99.95 



A simple basic smart terminal disk program that can 
be user modified. Adaptable for cassette based 
Level II systems— $19.95 



SMART80C 

For Model I, additional features include ASCII-token- 
ASCII conversion for transferring basic programs. 
For Level II, 16-48K systems. Specify if for 
MICROCONNECTION or RS232 version-$79.95 
SMART80E 

The first and only smart terminal program for the 
Exatron "Stringy Floppy", similar to 
SMART80C-$79.95 



SMART fflC 

The first cassette smart terminal program for 
the Model III. All the power of SMART80C 
plus numerous other features. Specify if for 
MICROCONNECTION or RS232 version- $99.95 

HOST PROGRAMS 

MESSAGE 80 By Richard Taylor 

Now you can operate your own bulletin board, 

either public or private, with MESSAGE 80 and the 

AUTOCONNECTION. Requires TRS-80, 2 disk 

drives, 48K and RS232CONNECTION (with the 

AUTOCONNECTION option)- $149.95 

MM-MSG 

Even if you only have a Level II, 16K keyboard, you 
can operate your own bulletin board! Requires 
TRS-80 keyboard and MICROCONNECTION with 
AUTOCONNECTION option)- $49.95 
SUPERHOST 

Allows other computer operators complete access 
to your system after password validation. 
Numerous features— $29.95 




To order your MICROCONNECTION or for more information, write or phone: 

ET Enterprises Level IV Products lac. 

L 7 ,l ™ wkins Rd -' Centerea ch, NY 11720 32238 Schoolcraft, Suite F4, Livonia, MI 48154 

£16)981-8568 (800)645^038 1(313)525-6200 (Mich only) 

Computer 300/1200 (516)588-5836 1(800)521-3305 (Elsewhere) 



Microperipheral Corp. 
2643 151st PI. N.E., Redmond, WA 98052 
(206)881-7544 
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difficulty with the problem, that you might 
contact the Radio Shack Computer dealer 
there in Tacoma. They, possibly, could help. 

If Problem 1 is readily solved by 
changing lines, I would appreciate a print- 
out of just which lines have to be changed 
and what the exact changes are. Then, I 
can edit "NFL PIX" and save the corrected 
version on my own cassette. 

While you're researching Problem 1, 
could you please tell me in broad terms 
where all the .686K remaining memory 
goes when my machine is empty. 

Is there a posssibility I could gain some of 
this back by entering a certain command? 

Your cooperation in this matter will be 
greatly appreciated. 

Larry W, Counce 
New Orleans, LA 
(These two letters are typical of those 
received here since we came out with NFL- 
PIX by James Ta/ley. It will be up to Mr. 
Talley to (1 ) issue a new program or (2) 
provide the changes necessary for the 
1981-82 season 

The Model III, while being a new 
machine with many nice features, does 
have some drawbacks. As the literature 
accompanying the machine clearly states, 
there are 258 fewer bytes of memory 
available for user programs. Mr. Talley's 
program was stripped to fit the 1 6K tape 
format of the Model I and there is a good 
possibility that it will not be able to fit the 
16K Model III machine. Since memory 
expansion in this unit is relatively 
inexpensive, I would think that this might 
be the simplest solution to Mr. Counce's 
problem. 

As to recovering overhead space, (which 
is what Mr. Counce is talking about in his 
second problem) this is absolutely required 
by the operating system and cannot be 
recovered. If you think this maybe a rip-off 
consider that most computer companies 
state memory size without any reference to 
overhead required by the system. If Radio 
Shack followed this practice, the (current) 
Model III 16K would be rated as a 32K 
computer! Ed) 



Have you ever spent hours typing in a 
program from a magazine only to find more 
bugs than you can handle? Case in point: 
TRS-80 Graphics Editor, page 88 Jan/Feb 
issue. Every time I try to run it I get an FC 
error on line 180. Since I know next to 
nothing about machine language, I'm 
stumped. In fact, since getting your 
magazine I've only had one program that 
you printed that would run. The programs 
you print sound great if only one could use 
them. I enjoy getting 80-U.S. and I find 
many useful facts in it. One improvement 
you could make is to not assume prior 
knowledge in all your projects. 

Richard Dysert 
Columbus Grove, OH 



(With very few exceptions, all program 
listings published in these pages are 
photographic reproductions of computer 
produced listings from the actual running 
program. It is very important that you 
recheck your typing against the listings in 
the magazine. The case Mr. Dysert brings 
up represents one of the most difficult bugs 
to trace in a Basic program. The error here 
is typically caused by problems in the 
DA TA statements, rather than in the READ 
and POKE statements where the operation 
crashed. An FC error will be created by any 
amount over 255 being poked into 
memory. Ed) 



I am too busy doing everything I learn in 
your #1 magazine to write long letters, but 
must thank everyone associated with your 
organization for the service you provide. 
Whether they realize it or not, Tandy owes 
you a lot for what a magazine like yours can 
do for hardware sales and to those of us 
who wish to learn as well as use a brand of 
computer. Regarding software, I will not 
buy unless I try or read a review of 
software. If truly authors will vanish (quit?) 
from copying, likewise buyers who are 
burnt will buy no more. 

Malcom King 
Ukiah, CA 



Your magazine is a delight for a TRS-80 
owner. One question: do your experts know 
of a piece of equipment which would 
transform 1 20 volt 50 cycle current to 1 20 
volt 60 cycle current? 

Joe Williams 
American Embassy (Kinshasa) 
APO New York, NY 09662 
(The only method that we know of is to first 
convert to DC with a power supply and then 
back to 60 AC with an inverter. 

Any of you who are aware of a 
commercial unit may want to drop Mr. 
Williams a note at his address Ed) 



Helpl Help! Does anyone out there know 
how to make a TRS-80 Model II work on 
ham teletype? I am an avid RTTY enthusiast 
who has recently upgraded from Model I to 
Model II and alas, I can not get back on radio 
teletype as I can not figure out howto make 
the RS-232 go down to 45 baud or how to 
write the program. I would be interested in 
offering your readers a handsome reward T 

I have written to all the current 
manufacturers of devices and programs for 
Model I RTTY and none of them are 
interested in helping us hapless Model II 
owners. 

How about it guys? 

Joel M, Greenfield 
WA2KZD 
1 56 Groton Place 
West Hempstead, NY 1 1552 
(Anybody interested in the challenge? Ed) 



I have recently purchased a 1 6K Model III 
with an RS-232 board installed. I have had 
some minor previous experience with 
Basic, but know absolutely nothing about 
Assembly / Machine language 
programming, which puts me in a rather 
awkward position. I am interested in using 
my system for scientific applications, not in 
programming for the sake of programming; 
however, there is presently almost no 
software available for the Model III. I 
greatly appreciate your excellent efforts in 
the Jan/Feb 80-U.S. to specifically point 
out programs listed there which were 
applicable to the Model III, something 
which none of your competitors have as yet 
done. Some additional steps that would be 
extremely useful to myself and all future 
TRS-80 owners (as Mod I is discontinued) 
would be the following: 

1) Ask contributors to design programs 
that can be used on both Mod I and Mod III 
whenever possible (both Basic and Z80 
language programs), or explain what 
changes are required to use the program 
on the Mod III. 

2) Present an article listing exactly what 
differences there are between allowable 
Basic for the two models, esp. PEEK/POKE 
addresses, etc. (never having used Mod I, I 
do not know how to modify published 
programs). 

3) Present an article explaining 
differences in Z80 language and addresses 
between the two models. 

4) Present articles explaining how to 
convert previously published programs (in 
both Basic and Z80) for the Mod I into 
suitable programs for Mod III. 

Finally, I am interested in using my 
TRS80 mostly as a terminal to a UNIX 
system on a PDP 1 1 /70 and a VAX, but no 
intelligent terminal programs presently 
exist for the Model III. I would be very 
interested in seeing a terminal program 
that can also transfer files (Basic and text 
files for editing) between a UNIX system 
and the Mod III (memory, tape, and disk). 

Again, thank you for your service to new 
Model III owners! 

Richard K. Wallace 
Santa Cruz, CA 



(For an intelligent terminal program, take a 
look in this issue's new products. In the 
meantime, potential authors: take note of 
this man's suggestions. Model III users 
should be aware of the 258 fewer bytes in 
their machine, but aside from this, Basic 
between the Model I and III is almost 
entirely the same. ROM routines present 
an entirely different matter as some (not 
all) have been changed. Suggestion 
number 4 is an area we usually do not get 
into, but watch for a "Best of. . . " book in the 
future. We'll check all published programs 
in that publication. Ed) 
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TRS-80 yodel' I BASIC Compilers 

Table below shows the BASIC subset translated by ACCEL and AGCEL2 to machine code. 
Figures represent the minimum expected ratio of execution times, compiler to interpreter. All 
other BASIC statements and functions run at interpreter speed after compilation. 





INTEGER 


SINGLE 


DOUBLE 


STRING 


Assignment (LET) 


115 


3.3 


3.4 


7.6 


Array Reference (1-dim) 


35 


78 


66 


34.5 


AND or OR 


41 


2.5 


2.0 




Compare (< ,etc) 


30 


1.6 


1.4 


4.2 


Add, Subtract, Concat 


47 


2.0 


1.5 


4.9 


Multiply)*) 


3.3 


2.0 


1.5 




Divide (/) 


2.0 


2.0 


1.02 




Reference to a constant 


il 


65 


54 


2.1 


FOR with NEXT 


11 








POKE 


82 


4.6 


3.6 




SET or RESET 


6. 7 


3.1 


2.6 




IF THEN ELSE 

II III L> 1 a IL» V# &~ 


11.1 


3.0 


2.3 


7.6 


ON expression GOTO 


15.8 


3.2 


2.8 




Functions 










VARPTR 


33 


47 


47 


44 


IJQR 


11 2 


3 7 


2 8 




POINT 
ru i im I 


U. 3 


q n 

O . u 


C . \J 




PPPK 


M 


4 4 


O . vJ 




LEN 








43 


MID$ 








4.1 


LEFT$ 








3.0 


RIGHTS 








2.8 


CHR$ 








4.7 


ASC 








30 


CVI 








28 


Flow if Control 










GOSUB with RETURN 


137 








GOTO 


204 








All other BASIC 










statements and functions 


1.0 


1.0 


1.0 


1.0 



ACCEL: For 16K TRS-80 Model I. Compiles boldface subset in INTEGER variable type. Compile- 
time size 2816 bytes, run-time size 256 bytes. Trade up later to ACCEL2 for the price difference. 

$44.95 -f .75 shipping 
ACGEL2: For 32K TRS-80 Model I. Compiles subset in all variable types. Compile-time size 
5120 bytes, run-time size 1024 bytes. Local and Global options help control growth of the compiled 
code. Output save to Disk, Stringy/Floppy. TRSDOS and most vendor DOSs supported. Use ACCEL2 
during BASIC program development for easy huge speedups. $88.95 + 1.50 shipping 

TSAVE: Writes ACCEL/ACCEL2 compiler output to independent SYSTEM tape. $9.95 



Developed in Britain 
by Southern Software 
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ALLEN GELDER SOFTWARE 
Box 11721 Main Post Office 
San Francisco, CA 94101 

TRS-80, TRSDOS tm Radio Shack 

Siringy/ Floppy tm exatron, inc. 



Mastercharge/Visa 
Ca add 6% 
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Bellevue, Washington 




It's nearly impossible to work with 
the TRS-80 without coming into 
contact with software written by 
Microsoft of Bellevue, Washington. 
They have supplied the TRS-80's 
Basic interpreter for the Model I, II and 
III as well as a host of supporting 
software of consistently high quality. 
Though there are a few gripes about 
how Microsoft does business, most 
people who work with their products 
have praise for the high quality of the 
software and responsiveness of the 
organization. 

Microsoft was founded in 1974 to 
supply software for the newly 
developed Microcomputer market- 
place . Since that time they have 
grown into a major force in software 
development. Among their products 
are the Basic Interpreter, Basic 
compiler, FORTRAN, COBOL, 
PASCAL, Data Base Manager, Word 
Processor and a new line of consumer 
products. 

Since the beginning, Bill Gates has 
led this organization of software 
superstars. He is responsible for many 
of their best products and continues a 
program of software research and 
development which refines and 
improves the products which have 
made Microsoft the leader in their 
field. 

Bill attended Harvard University, 
where he was in an accelerated 
graduate program. He worked at 
the TRW Corporation where he feels 
that the open atmosphere helped him 
learn much of what he knows about 
software. 

When the Altair computer was first 
introduced, Bill moved to Albequerque 
New Mexico. This period saw the 
introduction of Microsoft Basic and 
the development of the TRS-80 Model 
I, Level II ROM packages. 

In 1978 it was decided to move 
Microsoft to a major metropolitan 



area. After looking around, they made 
their move to Bellevue, Washington in 
early 1979. 

Like most of the other people we 
have met at Microsoft, Bill Gates 
turned out to be knowledgeable and 
easy to talk to. At Microsoft, Bill is the 
last resort for the final, authoritative 
answer to any technical question. Bill 
remains apparently unaffected by the 
fantastic success of the company. He 
loves to talk about computers and 
computer software. 

Most recently he completed the 
work on the Radio Shack color 
computer. He is most excited about 
the Extended Color Basic package he 
wrote. 

We met with Bill in his office, where 
we talked about the past, present and 
future of Microsoft. 

80-U.S.: What do you think about the 
various people who have adapted your 




Basic, changed things about it, and are 
now marketing it? 

Bill: One of the things we are trying to 
promote is a standard where people 
can interchange programs from one 
system to the next. So obviously, it 
takes away from that a great deal 
when there are specific things that are 
in one system implementation and not 
in others. A good example of that 
would be graphics. There is no 
standard for how you implement 
graphics in hardware and there are so 
many different characteristics, 
different resolution, and just different 
ways of doing the stuff that it's tough 
to be compatible today. Likewise, 
people's programs are often 
dependent on the size of the display. 
Radio Shack considered going to an 80 
character display when they designed 
the Model III. But they felt that would 
create too much incompatibility, so 
they didn't. And obviously that same 
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incompatibility would exist when 
someone is taking the Basic ROM up 
to an 80 column system. The degree of 
incompatibility is less than people 
would expect. It's really isolated to the 
I/O and graphics areas. When we did 
the Basic, we decided that there would 
be several levels. As you moved from 
one level to the next, it would always 
be a superset of the previous level. We 
had 4K, 8K, Extended and Disk: four 
levels. When I had to do the Radio 
Shack ROM, I had 12K, more than 
enough for 8K but not enough for 
extended. It's a hybrid, in betweeen 
extended and 8K. For example, there 
are no user defined functions or short 
error messages; two features typically 
in extended. But there are PRINT 
USING and Double Precision 
variables, which aren't found in 8K 
Basic. The additional data types were 
one of the key things we wanted to 
get. So we took that as given and pared 
it down to cram it into the 1 2K. We try 
to get people not to make changes and 
we have been very successful as far as 
the language itself goes. We have 
even participated in doing specific 
graphics stuff. But it's going to be a 
long time before there are any real 
standards there. 

80-U.S.: I can see that. How about 
some of these inside Microsoft Basic 
books? Have you looked at any of 
them? 

Bill: One or two of them. It's illegal for 
anyone to take material out of the 
ROM and publish it based on our 
software. I think what one of them did 
was publish comments and say that if 
you owned a ROM, somehow then you 
could fill in. That's legitimate. 
Anybody who actually gives the 
disassembled listing, ... when I hear 
about that I might take action. In a 
way, it's a legitimate thing that people 
want to know how the stuff works. 

One of the most popular cassettes of 
all time for the TRS-80 is the 
EditorAssembler. I never expected it 
would be. I thought that it would be 
compared with Basic, where you don't 
have to bang bits. Well, an 
impressively high percentage want to 
understand what is going on in the 
ROM and in assembly language after 
they have used it for a while. So a 
natural place to look is to say how does 
Basic work? Or, the thing that people 
often say is they want to call routines 
in the ROM. People have a little 
overblown view of how easy that is to 
do. The ROM wasn't designed as a 



bunch of subroutines, with the 
exception of the first 2K, which we did 
as the I/O stuff. It's extremely messy 
to use anything but those I/O things 
because on any error condition there 
are branches off to other places. In the 
case of the color computer we expect 
to come out with something that won't 
be a complete dump of the ROM. But 
we will have portions of it listed which 
is legitimate for us. We will talk about 
its overall structure and about 
advanced techniques using the thing. 
This should sort of head off all the 
decoding and insider-type books. We 
will see if this helps, and possibly 
distribute that through Radio Shack. 

Actually, in a way I'm impressed 
that people have done as well as they 
have. The code is reasonably tricky 
and very compact. We didn't have a 
chance to totally rework the thing for 
the Z-80 because we only had about 
four weeks from start to finish on that 
entire project. The ROM was really 
difficult. Also, it was the first time 
anyone had ever done a 'hook' scheme 
where we allowed additional disk code 
to come in as a RAM load. And we 
were never able to test that. There 
were no disks working at the time. So 
we put the hooks in and used our 
judgement that those things would 
work out properly. As it turns out, we 
and a few other people have used 
those hooks for other types of 
extensions. And we have gone beyond 
that. We have much better hook 
schemes that we have used in other 
Z80 products in some of the other 
microprocessors. And they even add 
reserved words and don't just work 
within the fixed set that was there. 
80-U.S.: Are you considering 
publishing any more inside 
information other than about the color 
computer? 

Bill: Well, as far as the Model I goes, 
there are four or five books which go 
into the stuff. There is so much crazy 
terminology. Disk Basic was originally 
going to be called Level III Basic. That's 
why it says L3 ERROR. And then we 
went and called our product Level III 
Basic. And Radio Shack, on the Model 
III, call that Level III Basic. But I don't 
think that for Model I or Model III Basic 
we will do anything. I don't endorse 
any of the ones that are out there nor 
do I damn them unless they have used 
our material. 

80-U.S.: How about the Model II 
Basic? 

Bill: Well, the idea there was that the 
Model II people were probably more 



businessmen. The spare time to be 
curious and really learn about it 
didn't come into it as much. That's 
why we didn't put PEEK and POKE in; 
Radio Shack told us not to. The next 
thing we knew, some guy comes out 
with patches for PEEK and POKE. I 
doubt the audience there is large 
enough to justify that type of book on 
the Model II Basic in RAM. 

As far as the Model I and III go, we 
did come out with the advanced 
Editor-Assembler. People can use that 
to probe intothe ROM and play around 
because it has a very nice symbolic 
decoder as part of ZBUG and that's 
probably enough. As far as the color 
computer goes, we will probably come 
out with the same package, but we'll 
also have a text that talks about the 
inside. 

With the color computer there's 
more to talk about. You can talk about 
high-res graphics and how you do 3D 
graphics and color mixing and PAINT 
and what the PAINT algorithm is and 
how you do sound modulation and 
how to use joy sticks to do really 
interesting things. There's a lot of 
complexity that goes beyond that. The 
things the people talk about on the 
Model I are why the cassette routines 
aren't reliable, or how to add keyboard 
debounce, such things aren't nearly 
as interesting. 

80-U.S.: Are there any plans for the 
TRS-80 in the future that you can talk 
about? 

Bill: Of course, we have our 
Consumer Products division that sells 
products directly for the TRS-80. And 
we have a lot of stuff that will be 
coming out there. We have a modeling 
program, some forms handling stuff, 
the disk version of the Editor- 
Assembler, the disk version of Level III 
Basic, and then we have a totally new 
release of the Basic compiler that is a 
significant improvement over the 
previous version. 

80-U.S.: Is it one with a run-time 
package? 

Bill: Yes, so you don't use nearly as 
much memory or disk space. 

You know, it surprises us how few 
software vendors support the Model I. 
We are going to continue to do it. The 
challenge to us is that since we can't 
get our stuff into the stores that sell 
the computers, the only people we can 
sell to independently are the ones who 
stop by computer stores or who buy 
mail order. Most of it today is really 
mail order. Radio Shack's controlled 
distribution makes it tough for 

(Continued on Page 1 2) 
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With this enhancement to Radio Shack's Model I 
Scripsit* you will turn a good word processing 
system into a great one. Superscript adds many of 
the features that Fort Worth left out, including: 



\ 

Now you can easily print 
BOLDFACE, underlined text , 
s , special characters , 



A-^-A n J ) and more! 



Custom print drivers for: 
Diablo (serial or parallel) 
NEC Spinwriter (serial or parallel) 
RS Line Printer IV*/Centronics 737 
RS Daisy II* 

Standard serial and parallel printers 
User-defined custom drivers (serial or parallel) 

You can call up the disk directory or kill files without 
leaving Scripsit— and without losing your text! Pause 
the printout to insert text from your keyboard or change 
type wheels, then resume printing where you left off. 

Using any printer with backspace capability, you 
can underline text and produce computer-type 
slashed zeros. And on Diablo, Daisy II and NEC 
printers, you can superscript, subscript, underline, 
print boldface and select 10- or 12-pitch. With the 
Line Printer IV/737, you can underline, print elonga- 
ted boldface, select 10 or 16.5 pitch, and use pro- 
portional spacing (unjustified). 

The keyboard driver is now modified to correct for 
repeating key hangups. You may specify spacing 
requirements to eliminate awkward spacing of criti- 
cal text. And, with Superscript, you can now enter 
special characters (brackets, braces, etc.) that are 
not found on the TRS-80* keyboard. 

All these capabilities, and more, are available when 
you add Superscript to your Model I Scripsit pro- 
gram. Available for just $29.95 on disk, including 
easy instructions for patching to Scripsit and an 
enhanced lowercase driver. 
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634 North Carolina Avenue, S.E., Washington, D C. 20003 



■ a 

S Vf %\ p/,w/\\ 
By Tom Stibolf 




If you ever type "SYSTEM" on your 
TRS-80,* this two-program package will 
make life easier for you. 

One of the programs, FLEXL, lets you 
make backup copies of any system for- 
mat tape. Using your own recorder usual- 
ly means easier loading than with 
machine-duplicated original tapes, and 
you will be able to store your original 
safely away. Copies made using FLEXL 
display the filename of each program as 
it loads, making file searches easier. 

Disk drive owners can use TDISK to save 
any system format tape onto disk. 
"Editor/Assembler", "Air Raid" and 
other programs cannot normally be 
foaded to disk, but with TDISK, they can. 
It will even load non-contiguous tapes. 
Why put up with slow tape loading? 
TDISK files will load from disk in 
seconds. 

Get this two-program package now for 
only $14.95. Just one of Acorn's fine utili- 
ty programs. 

* trademark of Tandy Corp 



These and other popular Acorn programs 
are available now at fine computer stores. 
Ask for them. 
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This is the Epson MX- 70. The lowest priced dot 
matrix printer you can buy. Now, that in itself 
should make it very attractive to a lot of people. 
But you ain't heard the half of it. 

To begin with, the MX- 70 has a lot more in 
common with our now-famous MX-80 than just 
the name. Like unequalled Epson reliability. 
And technological breakthroughs like the 
world's first disposable print head. But frankly, 
the MX-80 packs a lot more power than some 
people need. So we built the 
MX- 70 to be a no-frills print- 
er. At a no-frills price. 

But the MX-70 is still a great 
little printer. We give you 
80 CPS unidirectional print- 
ing. Top-of-form recognition. 
Programmable line feed and 
form lengths. Plain paper 
printing. An easy-to-read 5x7 
matrix. Self test. And an 
adjustable tractor feed. 

That's what you'd expect 




from a basic little printer. But here's something 
you wouldn't expect: the finest graphics package 
on the market today. Free. 

We call itGRAFTRAX II. And it means 480 dots 
across the page, resolution to 60 dots per inch, 
and a graphic image free of the jitter and overlap 
that plagues other printers. You get cleaner grays 
and finer point resolution. 

So now you've got a choice. You want more 
power and extra functions, you buy the MX-80. 

You want a basic little printer 
that prints, and keeps on 
printing, you buy the MX-70. 
They're both at your dealer 
now. 

But at this price, you'd bet- 
ter hurry. 




EPSON AMERICA, INC. 



23844 Hawthorne Boulevard • Torrance, California 90505 • (213) 378-2220 
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(from page 9) 

someone like us. So we have a choice, 
we can either OEM everything to them 
or we can try to build an independent 
image and marketing channel. We 
have so many things we want to do, so 
many products, that we need to have 
the independent image as well as the 
OEM market. We OEM'd the 
FORTRAN and we are OEMing some 
nice new stuff for Model III, but not the 
Basic compiler and the really key 
consumer products stuff. 

80-U.S.: Do you have any plans for 
Model III software? 
Bill: Not really. Anything wedoforthe 
Model III we'll also come up with a 
Model I version. They are so 
compatible, you might as well address 
both markets. There are 200,000 
Model I people out there. With the 
way we market and the recognition 
factor we have, it's hard for us not to 
get at least 1 % market penetration and 
that's a couple thousand sales, so we 
continue to work them both even- 
handedly. We've moved a little slow to 
bring that stuff up on the Model III 
because frankly we haven't seen a 
market. We are just beginning to see a 
little demand. 

80-U.S.: Why didn't Radio Shack go 
with Microsoft's Basiccompilerforthe 
Model II? 

Bill: We have a compiler that is 
compatible with the interpreter and 
runs dramatically faster because it is a 
true compiler. It fits into all the other 
development tools including common 
relocatable format so it can call things 
from FORTRAN. We felt that we were 
the obvious solution and perhaps in 
some ways we overplayed that. Our 
relationship with Radio Shack has had 
its ups and downs, but they dealt with 
us very honestly and continue to work 
with us on many things. In that one 
case, we think they made a bad 
mistake. 

The thing that's great is to have this 
synergy of being able to debug under 
the interpreter and then go to 
compiling. The problem with 
compilers is that it's not at all 
interactive. In our compiler and Radio 
Shack's compiler, the amount of time 
it takes to compile something and get 
it ready is minutes. For some small 
typing mistake that's outrageous. And 
so that's why we have the combined 
approach. In the case of the Model II, 
we'll be coming out with an enhanced 
interpreter that has all the features of 
the compiler. In the Model I and III the 
compiler has gotten a little ahead of 



the interpreter since that was burned 
into ROM a little over three years ago 
and so you have to be careful to stay 
within the interpretive set. There are a 
few things such as dynamic 
dimensioning which are not 
supported in the compiler which will 
be out in future versions of it. 
80-U.S.: Have you upgraded or 
tested any of your software on Radio 
Shack's new DOS release for the 
Model II? 

Bill: On the DOS 2.0? We had to go 
and convert all of our files as part of 
our OEM contract with Radio Shack 
and we had to run FORTRAN under it. 
It seems OK. 

The DOS's have had an interesting 
history. The first was written by the 
guy who sells VTOS and that was a 
stormy relationship. The in-house 
group did the Model II TRSDOS, and of 
course the size of the Model II 
TRSDOS is different, but they put in 
some improvements and I guess 
Model III TRSDOS is a merger of that. I 
really haven't looked at it at all. 

80-U.S.: From the standpoint of the 
average TRS-80 user, your manuals 
have improved considerably, 
particularly on the Model I. 
Bill: We're trying to improve the 
manuals. The company started out 
with pretty much an OEM orientation. 
What we were addressing was a low 
end of the data processing market 
where people were using micros at 
low cost to do what they had 
done previously on mini's and large 
machines. And in some ways our 
software and our documentation was 
adapted to that mode. 

Now what we are addressing is a 
whole new class of users who aren't 
perhaps as sophisticated. So we have 
had to really beef up our tech writing. 
We have four times as many tech 
writers as we did. Some people like 
Apple have set pretty reasonable 
precedents for good documentation 
and so that is really our focus. We 
have a couple of products where our 
investment in documentation is as 
great as in the software itself, which is 
a new thing. 

80-U.S.: Occasionally, I've seen 
complaints about Microsoft's user 
support or their software. An example 
which comes to mind is the M80 
assembler, where one gentleman 
complained about the lack of real 
Macro capability as he called it, 
because it could handle Mr - 
couldn't handle a Macro i 1 



do you feel about those kinds of 
comments? 

Bill: Software, if it did ail things for all 
people would be arbitrarily big and 
arbitrarily slow. Obviously you make 
tradeoffs. That's what we're known 
for doing real well. Various users will 
complain about how we have made 
those tradeoffs, which is to be 
expected. There is nothing wrong with 
healthy criticism. We've used that 
feedback many times and factored it 
into our new product plans. Like our 
loader or some of the new compiler 
features, which are very much based 
on feedback. You know, if someone 
comes down on us real hard, I can get 
upset because I think we have made 
an excellent tradeoff as to what should 
be in a macro assembler. It's 
extremely powerful. I doubt that there 
are many people out there who get 
near to its full capability. And it's the 
same thing with the loader. The loader 
is confusing to some people because it 
was designed to support a pretty 
sophisticated operation where you 
can locate things at arbitrary locations 
in memory. It's just a tradeoff we 
made. Maybe in that case we wenttoo 
far towards sophistication. But if you 
put out as much software as we do you 
are not going to escape criticism. We 
have one or two things which I'm 
surprised there hasn't been more 
comment on. 

80-U.S.: How much business do you 
do with Radio Shack? How much of a 
percentage of your operation is it? 
Bill: Well, it's a classic tradeoff for an 
OEM software house like us. Are you 
willing to involve yourself in royalty 
arrangements with manufacturers or 
do you work on a fixed fee? On the 
initial Level II Basic we worked on a 
fixed fee. We have an on-going yearly 
fee relative to Model III Basic, it's 
strictly bounded. Some of the work we 
have done on the color computer is 
more royalty oriented and so we are 
super enthusiastic about it. We think 
the color computer is going to be 
incredibly successful so that, if I'm 
right about that, Radio Shack could be 
as much as 10 or 1 5 percent of our 
income. 

One thing for most people to realize 
is that Microsoft does most of its work 
at a higher end of the computer 
spectrum. Although we are best 
known for our work with Apple and 
Radio Shack, Texas Instruments and 
people like that, most of our business 
s with NCR, ICL, XEROX and 
companies which are not down at the 
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Probably not. But you've probably been frustrated by 
the limitations of the micro's. 

StatPac is a 3-part program written and designed for 
research, survey and questionnaire processing, data 
entry, statistical analysis, management and market 
analysis. 

Whether you're a researcher, a programmer or 
reader and user of data — StatPac can fit your needs 
because you create the data file format to fit your 



specifications. StatPac is the SPSS of small com- 
puters. It eliminates the need for expensive program- 
ming or renting time on the large mainframe com- 
puters. 

Available for Model I (requires N EWDOS) or Model III, 
2 disk drives, 48 K RAM and a lineprinter. StatPac 
handles all phases of research analysis including: 
frequency analysis, descriptive statistics, crosstabs 
& chi-square, t-test, correlation & linear regression, 
analysis of variance, multiple linear regression and 
management reports. 



CODEBOOK AND DATA ENTRY 

Enter data using key-to-disc system with automatic 
back-up of data to protect against system crashes. 
Enter survey, report, test or lab data using fixed or 
free format. Programs feature screen prompting to 
guide data entry operator, automatic error detection, 
user-definabie tab stops, repeating keyboard, plus 
much more. 




DATA MANIPULATION 

Edit your files with fast machine language editor us- 
ing "pencil"-like commands, better than "pencil." 
Verify data files for "out-of-bounds" entries. Recode 
and transform data using conditional and absolute 
recodes and unlimited logical operators. Edit files 
larger than memory size. Accepts up to 2000 cases 
and up to 255 variables. 



STATISTICAL ANALYSIS AND BATCH 
PROCESSING 

Create a "task control file" to specify all analysis for 
batch processing. Save, edit or reuse task control file 
on other data sets. "Select if" feature allows 
analysis on partial data sets. All outputs to parallel or 
RS232 lineprinter. Error trapping features minimize 
aborted jobs. 



Total package price for 3 discs and extensive step-by-step user's manual is $185. Manual 
may be purchased separately for $30 and may be applied to the purchase price. Order by 
calling 612/866-9022 or write to Walonick Associates. Free brochure also available. 
MasterCard and VISA accepted. Dealer inquiries invited. 



and you won't need a mainframe! 



WALONICK 
ASSOCIATES 

Circle 8 



5624 Girard Ave. So. 
Minneapolis MN 55419 



low end. The thing about those 
companies is that they need more 
software for their products. You know 
when Zenith comes in, they want 
Basic, FORTRAN, COBOL, Basic 
Compiler, PASCAL and SORT - the 
whole bit. So that's a lot bigger piece 
of business and there are many of 
those manufacturers around. The low 
end tends to be dominated by a few 
manufacturers. Because of our 
Consumer Products Division, the low 
end is super important to us though. 
We have really done quite well selling 
to a user base of 1 00 to 200 thousand 
systems. When you think of what that 
is going to be like when there is a base 
of 500,000 systems, it's really neat. 
The key thing is to build a reputation in 
that market and as it grows we can 
capture more and more volume. 

80-U.S.: It makes a lot of sense. 
Bill: So, even from an internal point of 
view, Radio Shack is a very good 
customer. But if you also weigh in the 
consumer products things, you might 
say that they are our best customer. 
80-U.S.: How about these TRS-80 
imports like the PMC80 which 
advertises Microsoft Basic? Is that 



basically the same ROM that Radio 
Shack uses? 

Bill: It is virtually the same ROM, and 
they have a license to Microsoft Basic. 

I don't know if they are selling 
a lot of these. The hardware looks 
reasonable. The thing Radio Shack 
really proved about the computer 
business is that distribution is critical. 
So what if someone has an equivalent 
machine at an equivalent price. They 
are not going to hurt Radio Shack that 
badly. No one has 7000 stores, or 
whatever the number is, to place the 
product. As long as Radio Shack has a 
reasonable product, they are going to 
be a leader in this business. 

80-U.S.: So as long as you can put 
out good software for the system, 
you're going to go right along. 
Bill: Yes. We are certainly available to 
someone who has that kind of 
distribution. There are two ways we 
work, we like to make a good economic 
return, but we also like to be involved 
in bringing computers to more and 
more people. We get a lot of 
enjoyment out of the success of the 



Model I with Level II Basic. The initial 
prediction was that 10to 20 percent of 
the people would upgrade (from Level I 
to Level II) and it makes me feel good 
that the number is almost the inverse 
of that. It's 80 to 90 percent. I hope to 
see the same thing on the color 
computer. Our participation is heavily 
tied to the success of the extension 
ROM. 

80-U.S.: Did you do the actual Basic 
in the color computer? 

Bill: We did the 8K ROM. But that is 
not actually subject to a royalty. It's the 
extension ROM. They are married. 
They fit together in a very strong way. 
It's another classic situation. There 
was limited memory, limited time, a lot 
of new features that needed to go in 
and so we had to work really hard to 
get that done. We are super pleased 
about it. 

80-U.S.: From everything I've heard 
about it, it sounds like it is going to be a 
tremendous machine. 
Bill: The only real threat to it is if 
Commodore can get their act together. 
It is possible that they could be a 
serious competitor. I'm interested to 
see if Commodore follows through. • 
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IBM Interface 



TLEC is the name given to WEB 
International's new intelligent printer 
controller and formatter for the new IBM 
Electronic typewriter Models 50, 60 and 
75. It is Z-80 controlled with up to 4K 
printer buffer memory. A preprogrammed 
ROM eliminates the need for any printer 
driver software. The Mark I at $399.95 
provides full parallel handshaking along 
with many features. The Mark II at $499.95 
adds proportional spacing capability with 
justification to the Model 60 and 75. The 
Mark III at $499.95 adds bi-directional 
printing and many other features including 
access to the Model 60 and 75 memories. 
Inquiries should be directed to WEB 
International, PO Box 96, Corona Del Mar, 
CA 92625 (714) 494-2869 




Data Separator 



Parasitic Engineering Inc has announced 
their data separator for the TRS-80 Model I. 
It eliminates disk errors, including CRC, 
TRACK LOCKED OUT and Disk I/O ERROR. 
Originally designed for their high 
performance 8" Maxi-Drive systems, the 
5" Data Separator sets a new standard for 
reliable 5" disk operation on the Model I. 
The unit plugs inside your expansion 
interface. There are no additional wires 
and no cut traces or other permanent 
changes to your TRS-80. It is compatible 
with all TRS-80 software. The 5" Data 
Separator is upward compatible with 8" 
Maxi-Disk drives, and can be easily and 
economically upgraded at any time. It costs 
$250 and is available immediately. Contact 
Parasitic Engineering Inc, 1 101 Ninth Ave., 
Oakland, CA 94606 (415) 839-2636 
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Super Isolator 



Severe AC power line spikes, surges and 
hash are prevalent in many Micro- 
Processor installations. Program execution 
is plagued with unexplained crashes, 
memory loss or other glitches. Disks, 
printer and processor often interact, 
aggravating the problem. Electronic 
Specialists' recently announced Model 
ISO- 1 1 is designed to curb these severe 
electrical problems. Complementing the 
popular Super-Isolator line, the Model ISO- 
1 1 features two individually dual-Pi filtered 
AC socket banks (6 sockets total). Heavy- 
duty spike/surge suppression is 
incorporated in the design. Equipment 
interactions are eliminated and 
disruptive/damaging line spikes and hash 
are controlled. The Model ISO- 1 1 Super 
Isolator controls power line spikes and 
hash while providing interaction-free 
microprocessor operation. $94.95 
Electronic Specialists, Inc 171 South Main 
St., Natick, MA 01760 (617) 655-1532 



Racet Computes Catalog 



Racet Computes has issued a new spr ing 
catalog covering new prices and products 
for the TRS-80 Models I, II and III. They 
have also relocated to a new address in 
Orange, CA. Write for their catalog: Racet 
Computes 1330 N Glassell, Suite "M", 
Orange, CA 92667 



New LDOS Operating System 



LOBO Drives International announced a 
new generation in operating systems for 
the TRS-80. LDOS is a totally new and 
advanced operating system that will bridge 
the gap between TRS-80 microcomputers: 
compatibility with Model I is available now; 
compatibility with Model II and III will be 
ready soon. LDOS is fully device 
independent and supports 5" and 8", single 
or double sided disks. It supports hard 
disks. Among its many features you will 
find keyboard typeahead, auto-repeat, key- 
stroke multiply, wildcard and job log. For 
more information contact LOBO Drives 
International 354 South Fairview Ave., 
Goleta, CA 931 17 



Software Speedup Facilty 



PROSOFT, the first computer company to 
offer full-function Word Processing for the 
Line Printer IV, has introduced a software 
speedup facility for most TRS-80 Model I 
Level II and disk Basic programs. This utility 
program is appropriately called "FASTER". 
It analyses executing Basic programs, then 
displays or prints information that enables 
the user to make a simple change (usually 
just one line). Resulting execution times 
are typically reduced by 10-15%. No 
hardware modifications are involved, and 
FASTER can be used with packages as well 
as with user-written programs. It is 
available from PROSOFT, Box 839, North 
Hollywood, CA 91603 (213) 764-3131. 




Radio Shack's new Line Printer VII 



The Line Printer VII is a low-cost, full- 
performance printer which works directly 
with the new Color Computer. It features a 
4V2" to 9 1 /2" adjustable tractor feed 
mechanism, high-density graphics, 80 or 
40 upper and lower case characters per 8" 
line, and 30 characters per second print 
speed. It's an impact printer, using plain 
paper, and will produce the original plus 
two copies. Included is both parallel and 
serial interfaces. Available from Radio 
Shack stores and dealers, stock #26-11 67, 
$399.00, excluding cable. 



Model III RSM Patch 



REMarkable Software is proud to present 
a program to patch Small Systems 
Software's RSM for operation on the Radio 
Shack Model III microcomputer. The patch 
was written by James Haan and is 
marketed by REMarkable Software. This 
patch fills a need experienced by many new 
Model ill users. Small Systems Software's 
RSM was chosen since it has withstood the 
test of time and has proven itself to be the 
"workhorse" of monitors. The RSM patch 
was designed to be compatible with the 
unpatched version and as such there are 
very few variations from the original. The 
patch operates tape at 500 and 1 500 baud 
rates. Model III RSM Patch is available from 
REMarkable Software, PO Box 1 192, 
Muskegon, Ml 49443 and from many other 
software vendors. 



EPROM Programmer/Emulator 



An in-circuit emulation/EPROM 
programmer add-on can turn a personal 
computer into a development system. 
Microcomputer development systems are 
typically priced 2-5 times higher than 
equivalent "personal computer" systems 
because they are lower volume products in 
a much less competitive market. The 
Developmate 81 eliminates this gap by 
upgrading the popular TRS-80 personal 
computer into a full development system. 
Priced at only $329, the Developmate 81 
adds both Z-80 in-circuit-emulation and 
EPROM/EEPROM programming capability 
making it possible to buy a complete 
diskette-based development system for 
about $2500, or an upgradable cassette- 
based system for under $10001 The 
Developmate 81 plugs into the expansion 
connector of the TRS-80 and includes both 
the PROM programmer and the in-circuit- 
emulator in a single compact box. The 
PROM programmer has a personality 
module which defines the voltages and 
connections to the PROM so that future 
devices with up to 28 pins can be 
accommodated. For further information 
call Tom Blakeslee (415) 851-1172 at 
Orion Instruments, 1 72 Otis Ave., 
Woodside, CA 94062 



NEWBASIC for Model I 



NEWBASIC, from Modular Software 
Associates adds new commands and 
utilities to the TRS-80 Model I Level II or 
Disk Basic. The disk Basic version i&kased 
on a unique linking loader concept. Many 
different versions of NEWBASIC may be 
created which can contain only a few or all 
of the over 30 commands available. Some 
of the disk Basic enhancements are a 
spooler, despooler, and a new directory 
command which may be issued while in 
Basic. Utilities included in both the disk and 
Level II version are: Quick Key Basic 
keyword entry, blinking block cursor, auto 
repeat and lower case display enable. Also 
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included are new graphics commands, the 
ability to input from or output to the RS232- 
C interface, a video to printer echo, GOTO 
and GOSUB to expressions or labels and 
more. Two powerful debugging aids are 
included in NEWBASIC. A new trace 
facility allows the display of program lines 
and variable or expression values as the 
Basic program executes. A locate 
command finds the occurances of strings 
or Basic keywords. The disk version is 
$29.95, while the Level II cassette based 
version is $ 1 9.95. The Level II tape may be 
returned and its price applied towards the 
disk version. Both are available for 
immediate delivery from Modular Software 
Associates, 3533 Prospect Ave., Glendale, 
CA 91214 



Smart Terminal for Mod III 

The MicroPeripheral Corp has just 
announced SMARTIII, the first smart 
terminal program written for the TRS-80 
Model III. The program is available on 
either a 1500 baud cassette or double 
density disk. SMARTIII permits transfer of 
Basic programs between the host 
computer and the cassette or disk storage 
device. The program permits off-line text 
preparation with Electric Pencil or Scripsit 
for on-line transmission. An additional 
program called FILE permits generation 
and storage of text, then transmission by 
SMARTIII for those who do not have word 
processors. SMARTIII also permits transfer 
of source code files. Downloading from 
FORUM 80 bulletin boards is accomplished 
automatically. The program was written for 
the Model III by Dick Balcom. It can be used 
with any RS-232 compatible modem such 
as the RS232CONNECTION, a direct 
connect telephone interface manufactured 
by The MicroPeripheral Corp. SMARTIII is 
supplied in a protective binder with 
extensive easy-to-use operating 
instructions and is priced at $99.50. For 
additional information contact The 
MicroPeripheral Corp, 2643 151st Place 
NE, Redmond, WA 98052 (206) 881 -7544 
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Rate of Return Program 

Soft Sell has announced its Internal Rate 
of Return program for real estate investors 
and sales people. Fashioned after the 
worksheets of the National Association of 
Realtors(R), the program calculates and 
produces an Annual Property Operating 
Data Worksheet as desired on a CRT or 
printer. In addition, capitalization rates, 
cash on cash rates, gross rent multipliers 
and equity return rates are supplied. The 
Internal Rate of Return is supplied on a 
floppy disk and is supported by Radio Shack 
Models I, II and III. The price of the program 
is $380. Soft Sell is comprised of real 
estate and computer professionals and is 
dedicated to the development of affordable 
real estate software. Contact Chris 
Ithomitis, Soft Sell, (509) 466-0503 or 
write in care of North 1 751 2 Michael Road, 
Colbert, Washington 99005 




Carrying Case for Color & Model 111 

The Computer Case Co has announced 
the release of the RS204 for the TRS-80 
Model III retailing for $1 29 and the RS205 
for the Color Computer (or Videotex 
terminal) retailing for $99.00. The cases 
can be obtained through most computer 
stores or direct from the Computer Case 
Co, 5650 Indian Mound Court, Columbus, 
OH 43213 (614) 868-9464 

Mode! lii Disk Drives 



VR Data, a leading manufacturer of 
innovative computer products has recently 
announced its Model III Disk Drive 
Assembly. Designed and manufactured by 
VR Data in its suburban Philadelphia plant, 
the assembly enables Model III usersto add 
40 or 80 track 5Va" disk drives either 
internally or externally. The internal drive 
assembly includes one mini-drive, power 
supply, controller and mounting hardware, 
and sells for $599, a 29% savings 
compared to Radio Shack. An additional 
internal drive is $265. Immediate delivery 
is available and all inquiries should call 
(800) 345-81 02, (21 5) 461-5300 in PA or 
write VR Data Corp, 777 Henderson Blvd 
Folcroft, PA 1 9032 

PERCOM Model III Disk Drives 

PERCOM is now producing mini-disk 
storage systems for the TRS-80 Model III. 
Systems may be ordered with either 40 or 
80 track drives which are rated for both 
double and single density operation. The 
first two drives mount inside the computer. 
The complete internal drive system, which 
includes a four-drive controller, two drive 
power supply for the internally mounted 
drives, a double-density operating system 
(OS-80/III), and miscellaneous mounting 
hardware, sells for $749.95 in the 40 track 
version and $914.95 in the 80 track 
version. These drives are available from 
authorized PERCOM dealers, ordirectfrom 
PERCOM (1-800-527-1592) 
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By Greg Hasset from Adventure World 
Find the Devil's Palace somewhere in the 
deep, dark forest. You will have to use all 
your wits to enter the palace and conquer the 
evil which stalks the dismal corridors. This 
adventure (#10) is written in machine Ian 
guage for super excitement and suspense. 

Level II 16K . . . $14. 95 



from Med Systems 

You are sitting alone. It is 2 am. Your eyes 
are bloodshot. You peer into yor computer 
screen and suddenly scream, "I must be 
crazy!" If this has ever happened to you, or 
the men in white coats from "Deathmaze 5000" 
have hauled you away, it's time to try Asy 
lum, the most ambitious 3 D graphics adven 
ture yet offered by Med Systems. 

Asylum features the s D perspective graphics 
that have made Deathmaze 5000 and Labyrinth 
bestsellers. You actually see where you are 
and where you are going! 

Asylum places you on a cot in in a small room. 
Periodically, a janitor lobs a hand grenade 
through the window of your locked door. What 
you do next could mean survival or escape! 

Level II 16K . . . $14. 95 

Wmm ■ 



By Hogue S Konyu from Big Five 
Terrific sound, graphics and unique chal- 
lenges mark this new space game a winner! 
While fighting off the alien convoys, each 
more powerful than the last, you must keep 
track of your rocket fuel or risk explosion as 
you maneuver toward the mcthership to re- 
fuel. Can you dock immediately, or is the sta- 
tion overrun by aliens? Find out by ordering 
Cosmic Fighter today. 

Level II 16K tape. . . $14. 95 
32K disk version. .. $17. 95 




From Insiders Software 
Everything you want to know about video, 
keyboard, cassette, and print driver rou- 
tines. Learn to write your own! Remarkably 
detailed listings illustrate well-commented 
source code. Complement Volume I, now. 

$14. 95 



By Rick Wilkes from Acorn 

Using your Superscript modified Scripsit 
Word Processor and a compatible printer, you 
can now underline, boldface, insert text 
during printout, slash zeros, subscript, set 
type pitch, and of course Superscript! You 
can even read your disk directory and kill 
files without leaving Scripsit. 

Superscript comes with drivers for popular 
serial and parallel printers, and easy in- 
structions for patching to your Scripsit pro- 
gram (does not include Scripsit) . 

Level II 32k Disk. . . $29. 95 
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By Charles Forsythe from Programers Guild 
It's a desperate race as you search for 
SMAEGOR, who has kidnapped the Princess of 
the Realm and holds her in a distant and un- 
known place. In a quest for honor and glory, 
you must search the land, seeking out the 
tools needed for the ultimate confrontation. 
Clues abound on The River Delta, in the a- 
bandoned Temple of the Goddess of the Blade 
-- everywhere! But WHERE is the Princess? 
Order this new machine lanuage adventure 
now. You may never find the Princess, but 
you'll have fun trying! 



By Philip Oliver from Adventure Int. 
Closely patterned on the latest king of the ar- 
cade games, you must use your twin silos of 
ABM's to fend off barrage after barrage of 
enemy missiles that rain down toward your 
cities. As your skill increases so does the dif 
ficulty and speed of this ever machine Ian 
guage arcade game! Watch the skies and may 
your aim be true! Missile Attack has sound 
and fast moving graphics. 

Level II 16K tape. . . $14. 95 
32K disk. . . $20. 95 



By Howard Berlin from Sams SOS 
A series of seven different packages de- 
signed to increase your aid your technical 
knowledge and skills : 

PLOTTING GRAPHS FOR LINE PRINTER 

ACTIVE FILTER DESIGN 

DESCRIPTIVE STATISTICS & REGRESSION 

ANALYSIS 
ELECTRONICS I 
ELECTRONICS II 
ELECTRONICS III 

PLOTTING GRAPHS FOR VIDEO DISPLAY 

Both educational and useful, these programs 
include thorough and well written docu- 
mentation . 




Level II 16K tape. . . $ 1 5 . 95 32K disk . . . $2 1 . 95 Level II 1 6K . . . $24 . 95 each 



By Kim Watt from Breeze Computing 
Finally a disk repair and modification util 
ity that doesn't require a PhD to use! Quick 
Fix is a stand alone program that has its own 
I/O routines and does not use any ROM or 
DOS calls. As a result, it will operate on 
standard and "CP/M" machines and does not 
even require that the disk be in any drive 
after initalization . 

Quick Fix does just about everything 
Apparat's "Superzap" does, and so much 
more: Eliminate system files, kill files with 
common extensions, zero unused filenames 
and sectors, repair boot and directory auto 
matically, change or eliminate all passwords, 
compute the master password, read 
non-standard disks, compare disk sectors, do 
string or sector searches. 

With Quik Fix, you can even reformat disks 
without losing existing files and data! Great 
for repairing damaged disks and refreshing 
old ones. Order this essential utility today. 

Level II 32k Disk. . . $34. 95 



Visit Our New Store: W.Bell Plaza -6600 Security Blvd 'Baltimore, MD 




For information 
Calf (202) 337-4691 
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4200 Wisconsin Avenue 

Washington, D.C. 



t.KR9Box9609 



MAIL ORDERS: Send check or M.O. for total purchase 
price, plus $1 .00 postage & handling. D.C. residents, add 
6% tax. Charge card customers: include all embossed 
information on card. 



Get the most from your micro with 
software and accessories from one of 
the world's largest selections. 





By Leo Christopherson from Acorn 
Your 'droid has already learned NIM, so now 
it's time to teach it how to wield a laser sword! 
Leo Christopherson, author of "Android 
NIM," "Dancing Demon" and other animations, 
has developed a new type of animation and 
high-quality sound in his latest work. 

Your 'droid starts out as a lowly clown. You 
teach it how to use a laser sword by control- 
ling its movements. After training it to be a 
"Grand Master," you enter the tournament 
against the program's skilled 'droid! Enter- 
tainment for all ages. 

Protected Tape. . .$14.95 
Protected Disk. . . $20. 95 




from Med Systems 

A new breed of adventuring! Venture 
through a graphically represented 3-D maze, 
with halls that could dead end — or recede to 
infinity. Step through the doors or drop into 
the pits. Will you encounter monsters and 
mayhem, or will you be treated to useful ob- 
jects and information? Will you ever get out 
alive? 

You may never find your way out of 
Deathmaze 5000, but you'll keep trying! 

16K TRS-80, 32K APPLE II. ..$12. 95 



Unbelievable Realtime 3-D Graphics! 



FLIGHT SIMULATION 

From Sub Logic 

The wait is over! If 3 D graphics seem impos 
sible on the low resolution TRS 80, you hav 
en't seen this brilliant program. During 
FLIGHT SIMULATION, you instantly select 
instrument flight, radar, or a breathtaking 
pilot's eye view . But be sure to strap your 
self in you're liable to get dizzy! 

Once you put in some air time learning to fly 
your TRS 80, head for enemy territory and 
try to bomb the fuel depot and airstrip while 
fighting off five enemy warplanes. Good 
Luck ! 

Level I or 1 1 Tape. . . $25. 00 
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By Bill Hague from Big Five 

Asteroids surround your ship. You must shoot 

the asteroids, as well as any alien spaceships. 

Written in fast machine code, this game is 

GREAT! 

You may encounter five different kinds of 
alien ships, including the very deadly flag- 
ship. You shoot from your ship's position, 
rotate it, use your thrusters to move -- if you 
are overwhelmed, you can even get away to 
hyperspace. Fast and exciting . 

Tape $14. 95 



By Device Oriented G ames from Acorn 
A two-player, real-time action game that lets 
each player control a spaceship with rotate, 
thrust, fire, and hyperspace. Five game 
options (including gravity) and three playing 
speeds. In fast machine language. 

Tape. . .$9.95 
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By Hogue & Konyu from Big Five 
"The rage of the arcades" is now available for 
TRS 80! Exciting sound effects add to the ac 
tion as the invaders swoop down to destroy 
your base. Even while you have your hands 
full battling the aliens, you have to watch out 
for the Flagship! Super graphics, super ac 
tion , super fun ! 

Level I or 1 1 , tape. . . $14. 95 



By John Allen from Acorn 

Get your flipper fingers ready for action in 
this real-time, machine language game. 

Lots of sound and flashing graphics make this 
fast action game so much like the real thing 
that you'll have to remind yourself not to 
shake your TRS-80. Choose from five playing 
speeds to match your skill. Can you beat your 
friends' scores? Will you avoid the dreaded 
"Bermuda Square?" Get PINBALL today and 
find out. 



Protected tape. . 
Protected disk. . 



.$14.95 
.$20. 95 
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By Ainsworth & Baker from Microsoft 
Speed up your programming and word pro- 
cessing with this excellent touch-typing in- 
structional program. Divided into two sec- 
tions, the program first teaches proper finger 
positioning. You practice keying various char- 
acters, the program adding new ones as you 
progress. In the practice paragraph section, 
you are evaluated for accuracy and rated in 
words per minute. The program continuously 
adjusts to your increasing skill, telling you 
which characters you miss and where you are 
slow. One of the most practical programs we 
know of for TRS-80. 
$14. 95 



isk Drive Timer - 



GRAPHIC DISPLAY OF 
DRIVE NO.: 

EACH MARK REPRESENTS 
(SLOW! (CORRECT) 
295.00 296.6? 298.33 300 



N I R SPEED 
RPH RAN6E: 10 
0.17 RPH. 

(FAST) 

301.67 303.33 305.00 



from Disco-Tech - 
Analyze and adjust your disk drive motor 
speed with a real-time graphic display. Ma- 
nual details use for Radio Shack, Shugart, 
MPI, Pertec and Vista drives, and DDT can be 
used with any drive. All you need is DDT, 
two screwdrivers and five minutes. 



Disk $29. 95 
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by Carl Miller from Acorn 

A fast machine language approach to this 
classic (and addictive) space game. As you 
play, the aliens drop bombs, move from side 
to side, and try to overrun your bases. Hold 
them off and score -- by shooting them 
down. But, just as you think you've got it all 
under control, the action spc2ds up. 

Choose the game speed, enemy bomb frequen- 
cy and accuracy, shots on screen and the 
number of your bases. Move your base and 
simultaneously fire at the invaders — you 
cannot do this in most similar games. Full 
sound effects add even more excitement to the 
incredible speed and action of INVADERS 
FROM SPACE. Fun for all ages and skill 
levels . 

Protected tape $14.95 

Protected disk. . . . $20. 95 
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Many of you have wondered if we ever 
got our Model III out of the shop. Yes we did, 
thank you. It is working 8 hours a day in our 
mail room with a new Floppy Disk 
Controller Board. It seems the original 
design didn't allow for the heat produced by 
the board's components. 

I got a quick look at the new copier 
available only through Radio Shack's 
Computer Centers at the Computerama 
'81. It is not a plain paper copier. But for 
$795, that would be a miracle. It is a nice, 
compact book copier. I haven't seen it 
operate yet, but can report it is a wet 
process using treated paper, can produce 
multiple copies at about 6 a minute on 1 1 " 
or 14" paper. 

In reading about the new Color 
Computer, one magazine article talked 
about piggy-backing the 16K RAM chips 
with another set to give you a total of 32K. 
This sounds neat, but think this through— 
the dynamic RAMs used in memory 
produce heat, and two (one on top of the 
other) may produce more than can be 
safely tolerated by the unit. All sorts of 
RAMifications to consider. 

We are starting to get programs for the 
pocket computer and would like to produce 
a listing directly from the machine. 
However, there is no way to attach a 
printer— or communicate with another 
computer— or read the pocket computer 
tapes with another model. We would like to 
see a program for the Model I or III that 
would read Pocket Computer program 
tapes. These should be independent of the 
ROM routines of either model. 

What are some of the things you'd like to 
see? Do ^you have _ some pet program, 
utility, subject or whatever you would like 
to see in these pages? Send us your ideas. 
And, if you have something really neat, put 
a cover letter with it, describe it, and who 
knows? Maybe you'll end up being a 
contributor. If you want to know more on 
what we like and don't like, ask for our 
guidelines sheet. 

We'd also like to see some machine 
language articles for the Model II and the 



Color Computer. Short business routines 
are always welcome. 

One more thing we would like to see is an 
evaluation of some of these Stock Market 
programs now available. This would 
include the Radio Shack/Standard & 
Poor's STOCKPACKtm system, Max Ule's 
TICKERTECtm, and others. 

Apple and several others received a 
waiver until the end of March to comply 
with the new regulations imposed by the 
FCC. All TRS-80 models except the Model I 
met these requirements which state that 
thou shaft not disturb thy neighbor's 
television reception. They don't care about 
yours, just your neighbor's. And in 
apartment buildings, this does present a 
problem. 

Anyway, Tandy also got a waiver for 
Model I Expansion Interfaces. They can 
produce up to 30,000 units in 1981. That 
will beall unlessthe FCCgets enough input 
expressing otherwise. 

While we're on the subject of the FCC, it 
seems that Japan does not have anything 
like these regulations. That is the reason 
you haven't seen a huge influx of Japanese 
personal computers. Even when they do 
meet our requirements, they will still face 
the problem of distribution which is why 
Radio Shack is number one in computers. 

The post office has been ud to its tricks 
again. We have seen a large increase this 
year in rates for overseas mailing. This has 
forced us to send all subscriptions out by 
second class mail. That translates into 
surface mail for foreign mailings. 

We have a new line printer at 80-U.S. 
Lords was our source for a new Starwriter 
I. It's a great unit and produced the listings 
for this issue. 

Programmers should be aware of a 
contest sponsored by Radio Shack and 
John Hopkins University for ideas and 
inventions through which personal 
computing may be used to aid the 
handicapped. The contest ends June 30th 
and those interested should write to: 



Personal Computing to Aid the Hadicapped 
John Hopkins University 

P.O. Box 670 
Laurel, Maryland 20810 

This month we have a lot of Leo 
Christopherson. No apologies, just a lot of 
information for you on how he does it. And 
many of the other articles in this issue 
dwell in the same area. 

Leo's Line Packing leads the way and 
should be a boon to those of you who want 
to imbed machine language programs in 
Basic lines but didn't know how. Not only 
that, but the resultant game is really fun to 
play. Dennis Taylor gives An Alternative to 
String Packing and Gary Sanderson 
provides a primer to Animation and the 
TRS-80. Paul Gerhardt comes up with a 
solution to those who don't like to program 
in graphics in his Sketch and Pack. 

We also do a close-up on Leo that many 
will find interesting. 

Terry Dettmann does a CP/M evaluation 
which also includes a quick look at Filetran 
and The CP/M Handbook 

For those learning how to program in 
Basic, R. C. Bahn stalks the Elusive Print 
Using while Terry continues explaining 
random file techniques. For the advanced, 
Wallace Havenhill gives us a glimpse into 
the Basic interpreter and David Busch tells 
us how to configure a Custom Operating 
System using NEWDOS80. James 
Williams adds a Memory Size Reset 
program and Phil Pilgrim takes another 
look at machine language relocation with 
Omni Load in System Command. 
Business users will appreciate Making 
Sense and Dollar$ Too from George 
Haller. 

We did a few reviews this month and 
Panattoni gets around to silencing our Line 
Printer I (the Centronics 779). 

This month's reader service card has a 
spot for your comments. Let us know what 
you liked and didn't like. In the meantime, 
have some fun and enjoy life, after all, its 
yours to live... Tom 
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single density drives, so you'll have 
greater applications for your TRS-80 
model 1.® 

Drives plug directly into an expan- 
sion interface with no modification 
required so you can now have over 
1 megabyte of storage on-line with 
standard mini-floppy diskettes. Each 
drive has 316 free grans, for a total 
of 948, on a maximum of three 80 
track drives, which can be added to 
a TRS-80. 

Upgrading to double density is 
possible by running under most dou- 
ble density controllers, (e.g. Percom's 
Doubler). 
These drives can "read" standard 35 
or 40 track diskettes with special soft- 
ware that skips every other track. 
Drives come nv-'-nnnHi 
complete with . 
case, power sup- 1 ! 
ply, interface cable ;.f | „ § 

and documentation ^\ 
' including patches ^ 

to Newdos/80. The drive mechanism is priced 
at only $699 (Cat. No. 1-705, specify I or III). 
Plow, at 579 bytes per buck, it just might be the 
answer to your storage problems. 





440 1 So. Tamarac F^rkway, Denver, CO 80237 (303) 741-1 778 



To order any product, call us toll-free (except Alaska, Colorado and Hawaii; 
800-525-7674. 
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Pockoge 1 - 1 .5 Megabytes for only $1,540.00 

2: Model 160-2 ft€ROCOMP 80- track double headed drives 
1 . PCRCOM DOUBL€fl 
1 : DOSPLUS 3.1 D 

1 : 2 Drive Coble (for the A€ROCOMP drives) 
Package 2 - Upgrade your Model I to o Model III for 
only $320.00 

1 : P€RCOM DOUBL6R 
1: DOSPLUS 3. ID 

Package 3 - Add on disk storage and go double 
density for only $1,040.00 

2: Model 40-1 fl€ROCOMP 40-track "flippy" drives 
1 : P6RCOM DOUBL6R 
1: DOSPLUS 3. ID 

1 : 4 drive coble (for the R€ROCOMP drives) 

Package 4 - Add an 80-track drive and double de- 
nsity for only $800.00 

1 : Model 80 1 flCROCOMP 80-track "flippv" drive 
1 : P€RCOM DOUBL6R 
1: DOSPLUS 3. ID 

1 : 3 drive coble (for the RCROCOMP drive) 

Remember, ON€ 80-track drive, running double density, will 
give you as much storage as FOUR 35-trock drives running single 
density. 

If interested, call or write us at the address below, and let us 
banish your disk storage problems foreverl 

CTi CD E3 ETi CD C3 C3 CJj C3 CI C3 C3 CTJ C3 tZ2 C3 Si i 

MICRO SYSTEMS SOFTWARE INC. 
5846 Funston Street, Hollywood, FL 33023 
(305) 983-3390 



NAME 



ADDRESS 
CITY 



STATE 
PHONE 



ZIP 



ACCOUNT # 

MC □ VISA □ EXP. DATE 
i PROGRAM NAME 



QUANTITY 



iHl CD Cn C33 V73 C™3 C^j CU CT3 CZ3 £33 C3 €Z3 C3 C3 CuTi KSS 
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• MOD€l DISC DfltV€ 160-2 $599.95 

Double-sided, 96TPI. 

(160 track/80 per side; single 

density unformated 500H 

bytes,- double density 

unformoted 1 megabyte) 



r^i TO! 

• MOD€L 80-1 DISC DRIVC- $449.95 eo. 

Single-sided, "Flippy", 96TPI 
(80 track; single density 
unformated 250K bytes/side; 
double density unformated 500K 
bytes/side) 

All models are capable of single or double density and are complete with power 
supply and silver enclosure. Send for information on ft£-ROCOMP 2 -and 3-drive systems 
available in 40 and 80 track 

The Doubler™: Percom's new proprietory double-density 
adopter for the TflS-80* computer. 

• Increase formatted storage capacity of your minidiskettes from 
1 1/2 to almost 4 times. 

• Use with standard 5-inch drives rated for double-density 
operation. 

• The DOUBL€R' M reads, writes and formats cither signle - or 
double density disks. Only $2 1 9.95. 



f 



i mm E3 a a C3 CD >—> < — a a t ~< mm 



mm 
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Micro-Systems Software Inc. now has double density 
software available for TRS-80* Model I's that are equip- 
ped with the Percom Doubler. + 

first is a disk editor called "Disk Zap 2.3". This editor 
will work either single or double density diskettes. It is 
track and sector oriented, and offers total access to all 
parts of the disk. It has the ability to format and backup 
diskettes as well as editing them. 

Second is our new double density DOS. DOSPLUS 3. 1 D, 
like our regular DOS, will run 35-80 track drives; but offers 
the increased disk storage of double density. 

Disk Zap is $ 1 9.95 and DOSPLUS 3.1 or 3.1 D is $99.95. 
To order, call or write us at the address below. Master 
Card and Visa welcome. Orders accompanied by a 
personal check will be shipped when the check clears the 
bank. 
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VISA 



Specializing in the Tandy Line 



(305) 983-3390 



5846 Funston Street 
Hollywood, FL 33023 
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* TRS - 80 is a trademark of Tandy Corp 
Doubler is a trademark of Percom Doto Corp 
Now available in Spanish 



Judging from the comments I receive, there are 
quite a few who study my programs in order to learn 
to use the techniques. These people will have noticed 
that all of these programs mix Basic and machine 
language lines. The earliest programs use mostly 
Basic and the latest mostly use machine language. 
These programs fall into two major categories: those 
which use "string packing" and those which use 
"line packing". 

I first used string packing in Android Nim. In that 
program sound effect routines and graphics arrays 
are packed into strings. The same is true for Snake 
Eggs. Life Two is a program that requires string 
packed machine language subroutines to work out 
each generation of the Game of Life quickly. Sound 
routines and graphics are also packed into strings. 

I think that Beewary is the program that takes 
string packing about as far as it should go. Most of 
that program is string packed. Basic is mainly used to 
find strings and to generate random numbers (I have 
found generating random numbers in machine 
language to be a tough problem). This is not to say 
that Beewary has very little Basic in it, however! In 
fact, it has so much peeking and pokeing using 
VARPTR that some strings extend into the expansion 
interface when using some disk systems, resulting in 
the program crashing. 



And then came Dancing Demon. The first version 
of that program used string packing. But it just wasn't 
satisfactory. ..it wouldn't run fast enough for one 
thing. The second and final versions of Demon used 
line packing for almost all of its operation. There is a 
very small amount of string packing used. This 
change in techniques made a whale of a difference! 
Duel-N-Droids and Fire Bird both use line packing 
and very little actual Basic programming. 



What is Line Packing? 

Line Packing is a programming technique which 
allows machine language subroutines and related 
data to be stored and used from within a Basic 
program. The line numbers used in Basic serve to 
separate one routine from another and from the 
actual Basic part of the program. Subroutines are 
entered by typing in a dummy Basic line containing 
the number of bytes necessary to hold the 
subroutine. Then the line is packed or loaded with the 
actual codes for the subroutine. A special "Line 
Finder" subroutine is used to find the start of such a 
packed line. This allows the subroutine to be called^ 
from Basic or from another machine language 
subroutine. The Line Finder also finds the start of a 
line of data when needed by a subroutine. This 
programming technique has quite a number of 
advantages. It also has a few limitations. 

Why Use Line Packing? 

Line packing offers the programmer the benefits of 
both Basic and machine language programming. 
Where speed is not important, Basic can be used 
since it is easier to use for most programmers. 
Computation using large decimal numbers is easier 
in Basic. There is a whole 1 2K Basic ROM there 
which allows for some pretty fancy programming. On 
the other hand, sound effects, fast graphics, and 
certain calculations require the speed of machine 
language. 

Line packing results in a program that can run on a 
TRS-80 Model I or III, with or without disk. So the 
programmer can write one program and expect that 
same program to run on any present version of the 
TRS-80 Model I or III. 

Since the machine language routines are packed 
into Basic lines, there is no need to load them into a 
separate memory protected area. This is mainly an 
advantage to tape users since it seems that loading 
Basic programs from tape tends to be easier than 
loading SYSTEM tapes. Line packed programs load as 
a single Basic program. 
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Line packing does not require using an 
editor/assembler or a machine language monitor. All 
of the packing can be done from Basic, nor does the 
programmer need disk. 

I would say that line packing is mainly for the 
programmer who wishes to create one single version 
of a program that will run equally well with tape or 
disk, Model I or Model III. It isfor the programmer who 
wishes to make use of Basic as well as machine 
language programming, using each to do what it can 
do best. 

Line Packing versus String Packing 
Some of the reasons just mentioned for using line 
packing also apply to string packing. However, there 
are enough differences to make line packing superior 
to string packing. The only time string packing would 
be just as effective is in a program where there are 
only a few packed strings. The "how to do it" of 
string packing has been described in earlier 80-U.S. 
Journal articles, so I will not go into that now. 

Unlike packed strings, a packed line is just as easily 
used above the absolute address 32767. Addresses 
larger than 32767 are found in the expansion 
interface and the PEEKing and POKEing needed for 
string packing requires special attention out there. 
This is a problem caused by the Basic PEEK and 
POKE, and is not a problem for line packing. 

Since lines do not need to be enclosed in quotation 
marks as strings do, the Z-80 code 34D, or 22H, can 
be used. The ASCII 34D, or quotation mark, is the very 
useful Z-80 instruction - LD(NN),HL - when packed 
into a subroutine line. 

A packed line takes about six bytes of memory in 
addition to the actual substance of the line. These 
bytes have to do with line numbers and addresses. A 
line with a packed string takes something like five to 
seven more bytes to name the string and then 
another five or more bytes to identify and locate the 
string in a sort of look-up table. Thus, line packing 
does save some memory - the more packed lines, the 
greater the number of bytes saved. 

In string packing it is necessary to run the program 
through all of the lines containing packed strings. 
This is done so Basic can set up its look-up tables for 
strings which VARPTR uses. In line packing the 
program must not run through the packed lines, and 
instead must jump around them while in Basic. 

Line packing results in faster programs since it 
makes it easier to jump into a machine language 
routine from Basic and also makes it quite easy to 
jump to or call one machine language line from 
another without returning to Basic. 

I feel that line packing is a better choice than string 
packing for a program which mixes Basic and 
machine language programming. 

Limitations of Line Packing 
Line packing, as I use it, does have some 
limitations. Some of these limitations are the result 



of compromises I have chosen to make, and some 
result from the inherent characteristics of line 
packing itself. 

Because Basic identifies the end of a Basic line 
with a zero, zero cannot be used as a Z-80 instruction. 
Since zero is the Z-80 code for a NOP (no operation), 
this has not been a problem. 

Though it can be done, packing lines with more 
than 248 bytes is difficult. A lot can be done in 248 
bytes however, and I have not found this to be much 
of a problem. And anyway, one can easily cause the 
program to jump to another line and continue on 
there. 

It is necessary that a pair of bytes in reserved 
memory always contain the address for the start of 
Basic. This is no problem so far, since the Models I 
and III both store this information at the same place. 
Basic's starting address is loaded into these locations 
at power up or boot up. 

I have chosen to use LPRINT as the command that 
jumps into a machine language line. The LPRINT 
vector is at the same place in reserved memory for all 
present versions of Basic and DOS for both Models I 
and III. This means LPRINT will work the same from 
machine to machine. One can also use LPRINT to 
pass information to the machine language routine, 
and this is very useful. 

Using LPRINT leads to some limitations though. 
The most obvious is that a printer can no longer be 
used. I have not found this to be a problem, but it 
certainly could be for some programmers. I would 
suggest using USR in that case. USR will cause the 
programmer to have to allow for the machine being 
used, and the kind of DOS (if any). 

Another minor problem with LPRINT is that lines 
10 and 13 should not be packed. LPRINT always 
concludes its cycle with a control code 1 3, or carriage 
return with line feed. Thus, line 13 would be called 
every time LPRINT was used. The control code 1 for 
line feed is also to be avoided. Since there are plenty 
of other line numbers available, this is not much of a 
problem, once you know about it. 

I have also chosen to limit the range of lines to be 
packed to those numbered from 2 through 249 (with 
the exception of lines 10 and 13 as mentioned 
before). This leads to a somewhat simpler line finding 
routine. I have found there to be 50 or more line 
numbers still unused in large programs such as 
Dancing Demon and Fire Bird. I usually run out of 
memory before I am out of lines to pack. 

As with string packing, using LIST in a line packed 
program can result in some rather frighteningly 
spectacular screen displays. One should remember 
to LIST from line 250 up, since only normal Basic 
lines exist there. Fortunately listing causes no 
damage to the program. 

Finally, with all of this preliminary commentary out 
of the way, it's time to look at what line packing is 
really like. 
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The Heart of the Matter 
You and I are going to put together a program. It is 
going to be a simple game program which uses some 
fairly fancy machine language subroutines and of 
course, line packing. Since this is the kind of program 
that can't easily be typed in from a magazine listing, 
you will need to follow through the article carefully, 
step by step. I think you will be quite satisfied with the 
result. 

The entire success of line packing depends on the 
Line Finder subroutine, so we will have to write that 
first. The place to start is to find out where our Basic 
starts. So, power up your machine and get into Basic. 
Then type the following line on the keyboard and 
press ENTER (no line number... and, by the way, the 
numbers you will see in parenthesis at the left of the 
example lines serve to identify the line for discussion 
sake - they are not to be typed on the keyboard): 

(1 ) Q=PEEK(1 6548)+PEEK(1 6549)*256:PRINT Q 
This number, Q, is the decimal numeral for the 

address where Basic starts in your machine. Qfor the 
Model I, Level II should be 1 71 29. With DOS 2.3 and 
Ofiles, Q is 26302. The Model III without disk gives us 
a Q of 17385. In other words, the actual value for Q 
changes from one model to the next and from DOS to 
DOS. But the memory locations 16548 and 16549 
will find the start of Basic for any of these machines. 
Keep track of that number. Q is the address where 
Basic starts in your machine. 

Now we have to examine a Basic line of memory. 
Enter the following line (use no spaces, theyjusttake 
up space!): 

(2) 1GOTO250 

To see the structure of this line, type in the 
following (without a line number), and where Q is 
used, type in the value you found for Q in (1 ) above: 

(3) FOR N=QTOQ+10:PRINT PEEK(N);:NEXT N 
Your machine will print out something like the 

following: 

M I Level II : 242 66 1 141 50 53 48 
M I DOS 2.3 : 199 102 1 141 50 53 48 
M I NEWDOS80 : 200 102 1 141 50 53 48 
W III NO DISK : 242 67 1 141 50 53 48 
M III DOS 1.1 : 216 104 1 141 50 53 48 

The first two numbers are the least and most 
significant bytes of the address for the start of the 
next line of Basic. The next two numbers are the least 
and most significant bytes of the present line's Basic 
line number. Thus, this line is (1 )+(0*256) or line #1 . 
The 141 is the token that the Basic ROM will 
understand as the Basic command GOTO. The 50, 53 
and 48 are the ASCII decimal values for the digits of 
the number 250. The Basic line ends with a zero. We 
have no further lines in our program as yet, so there 
are two more zeros after this to identify the end of the 
Basic program. 

Again, what we have learned is that the first two 
bytes of a line contain the address of the start of the 



next Basic line, and that the third and fourth bytes 
together give the number of the Basic line we are at. 

What we are going to do is write a machine 
language subroutine that makes use of all of this 
information to find a given line for us. To make this 
subroutine even more useful, it will find the start of 
the desired line, placing its address in the HL register 
pair. Then, if the line starts with an "S" for 
subroutine, the Line Finder will jump the program to 
that line. If the line starts with a "D"for data, the Line 
Finder will store the line's address in reserved 
memory for later use. 

The "Line Finder" 

After we have put line 2 in memory, we are going to 
poke the address of line 2's start into the LPRINT 
vector so that LPRINTing any line's number will send 
the program flow through line 2 to find the desired 
line. 

When the command LPRINT"!" is encountered in a 
program, the program flow is directed to the LPRINT 
vector in the Line Printer Control Block. At that point, 
the C register of the Z-80 contains the ASCII value of 
the "!" which is 33D, or 21 H. In our case the "!" 
represents a line #33, for which we are trying to find 
the start. LPRINT"A" would look for line 65, since the 
ASCII for "A" is 65D. The same results will be 
obtained by the commands LPRINTCHR$(33) or 
LPRINTCHR$(65). 

Let's see what happens in line 2. Refer to the Z-80 
code listing in Figure 1 . 

Steps - 3 of line 2 check the number stored in the 
C register. The program returns to the calling routine 
if C has 1 3 in it. This causes the program to ignore 
that carriage return with which all LPRINTs end. It 
also rules out using line 1 3, as mentioned before. 

Steps 4 - 6 load the HL register pair with the 
address of the start of Basic. This is the Z-80 
equivalent of what we did in (1) above. 

Steps 7 and 8 load the address from the HL to the 
DE registers, giving us a place to store the address. 

Steps 9 and 1 set the address in the HL register 
two memory positions higher. If you will remember 
back to what we learned about how a Basic line is 
stored in memory, you will realize that DE is set to the 
first byte of line 1 . The first two bytes of line 1 arethe 
address of the next Basic line. You should also realize 
that HL points to the third byte of the line. This byte 
contains the least significant byte of the line's 
number in Basic. We will be able to ignore the line 
number's most significant byte because we are 
restricting the numbers for our packed lines to those 
less than 250. This means that the most significant 
byte will always be zero. 

Steps 11-13 check to see if the line we are at is the 
one we are looking for. The A register has the line 
number from Step 0. So, step 1 1 compares the line 
number we are looking for, which is in the A register, 
with the line number HL is pointing to. 

If the program hasn't found the line we are looking 
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for yet, then steps 1 4 - 20 load the HL register with 
the address for the start of the next line of Basic, 
which was kept in the DE register. The address of the 
next line after that is placed into DE and the program 
flow jumps back to step 7 where the process of 
checking for the desired line number is repeated, and 
so on... 

When the program comes to step 21, the HL 
registers are set to the address of the third byte of the 
line we are looking for. Steps 21 - 23 set HL over to 
the fifth byte of the line where we have put either an 
"S" for subroutine or a "D" for data. Then, after A is 
loaded with this fifty byte, HL is incremented once 
more. It is now actually pointing to the start of the 
line's packed subroutine of data. 

Steps 25 - 28 compare that fifty byte of the Basic 
line, which is now copied into the A register, with the 
number 68D, or 44H. This is the ASCII for a "D". In 
our case it means this is a data line. If it is a "D" line, 
Steps 29 - 32 load the address of the start of this data 
from HL to memory locations 16424D and 16425D 
(that's 4028H and 4029H). These locations are two 
more bytes in the LPRINT control block. Doing this 
gives us a way to recover the data line's address 
when we are back in Basic. If this was a "D" line, the 
programs return at this point. 

In steps 33 and 34, the program checks to see if the 
line is an "S" or subroutine line. It compares the fifty 
byte to 83D, or 53H, which is an ASCII "S". If we are 
at neither a "D"or an "S" line, the program returns to 
the calling routine with the HL registers still pointing 
to the start of the packed part of the line. 

If the fifth byte is an "S", then step 36 causes the 
program flow to jump to the address in HL where the 
packed subroutine awaits in the Basic line. The 
program flow does not come back through line 2, but 
is returned from the packed subroutine. 

Packing Line #2 into our Basic Program 
In the following instructions for building up our 
program, asking you to save your program on tape or 
disk is a safety precaution. One wrong byte in a 
machine language subroutine and all will be lost 
when the program is run. 

Type in the following Basic lines and then save 
your program. Then run the program once - only once 
so far! Line 2 will be packed by this time, but not 
quite ready to use. 

(4) 1GOT0250 (USE NO SPACES) 

( 5 ) 2 (37 PERIODS) 

(6) 250 Q0=PEEK(16548)+PEEK(16.549)*256+13 

(7) 1000 DATA121,254,13,200, 42,164, 64, 84,93, 35 

1001 DATA35, 190, 40, 7, 235, 94, 35, 86, 235, 24 

1002 DATA242,35,35,126,35,254,68 S 32,4,34 

1003 DATA40,64,201,254,83,192,233 

(8) 1011 RESTORE : FORN=0T036 : READD : P0KEQ0+N ,D : NEXTN 

(9) 1020 STOP 

Now we need to test line 2 to see that it is packed 
properly. Enter the following lines and run the 
program again. 



(10) 33 D0123456789 

(11) 251 Q2=INT(Q0/256):Q1=Q0-Q2*256 

(12) 252 POKE16421 ,195 :P0KE16422 ,Q1 :POKE16423 
,Q2 

(13) 255 LPRINT"!" 

(14) 260 L=PEEK(16424)+PEEK(16425)*256 

(15) 265 F0RN=0T09 : PRINTPEEK(L+N) ; : NEXTN 

(16) 270 STOP 

If everything is correct so far, you should see the 
following numbers printed out on the screen: 

(17) 48 49 50 51 52 53 54 55 56 57 

If this does not happen, something is wrong! Start 
back at the beginning of this section and try again. If 
all seems to be as it should be, save the program 
again. 

Let's examine what we have just done. In (5) we set 
up a dummy line of bytes to receive our Line Finder 
subroutine. The calculation at (6)finds where the line 
starts by first finding the start of line 1 as we did in (1 ). 
Then the number 1 3 is added to this address which 
counts this address past line 1 and gets us to the 
actual start of the subroutine to be in line 2. Step (7) is 
the data representing the decimal values of our Z-80 
coded program to go into line 2. The line at (8) packs 
line 2 by poking the data into it. 

To test the Line Finder, we set up the LPRINT vector 
by finding the least significant (Q1) and most 
significant (Q2) bytes of the starting address of the 
Line Finder routine. This is done in (11). That 
POKE16421,195 sets up a mach ine language jump 
(Z-80 code 1 95D) so that a machine language call to 
that address (1 6421 ) will result in a jump to the Line 
Finder, whose address is poked into the LPRINT 
vector (1 6422 and 1 6423) by (1 2). This means we will 
be able to get to line 2 in two ways: by LPRINTing in 
Basic, or by calling 16421 (4025H) from a machine 
language program. 

What we do in (10) is set up line 33 for test 
purposes. It starts with a "D" which identifies it as a 
data line. That meansthat its address will be stored at 
memory locations 16424 and 16425 by the Line 
Finder. In (13) when we LPRINT"!", where "!" is an 
ASCII 33D, the program jumps to the Line Finder, 
looking for line 33. When the line isfound, its address 
is stored at 1 6424 and 1 6425. 

The Basic line in (14) calculates the decimal 
address of line 33 and the line in (1 5) prints out the 
ten bytes of data in line 33 (not including the "D"). So 
what we get in (17) is the decimal ASCII values for 
0123456789. 

Now that we have the Line Finder working, we are 
ready to start packing a program. What we have done 
so far is to set up the line packing framework around 
which a program can be built. 

Packing Lines 5, 33 and 32 
Look at the listing in Figure 2 for line 5: Screen 
Painter. Step is the "S" which identifies the line as 

(Text continues on page 95) 
(Listings start on page 94) 
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For sheer fun and flexibility nothing compares with Programmes 
exclusive 80-Grafix for your Model I or Model III TRS-80. With its 
greater high-resolution capability, it outgraphics the Commodore 
CBM/PET*, and even Apple 11*. In short, anything they do, you can 
now do better . 

As for effective resolution, imagine this . . . 80-Grafix gives your 
TRS-80 an effective screen of 384 x 192 (vs normal 1 28 x 48) . . . 
while the CBM/PET is 80 x 50, and Apple II, 280 x 1 92. And that's 
only the beginning. 

Black & White. Or Vice-Versa, Use the standard white on black, 
or for variety, call up Inverse Video as the need demands. 

Lower Case. Free. No need to spend extra. 80-Grafix includes 
two sets of lower case characters. Plus Character Generator software 
so you can create your own set of up to 64 original characters. 

Great Graphics. Here's unlimited fun. Pick a subject Draw it. 
Sketch it. Design it. Change it. You're limited only by your own 
imagination 

Games People Play. 80-Grafix lets you develop your own soft- 
ware to create fantastic new real-time games to amuse, amaze or 
challenge. Or, order our ready-to-go software. It adds a new dimen- 
sion to 80-Grafix without any extra programming on your part 

Easy Does It. It's simple to hook up80-Grafix inside your TRS-80 
case . . takes just a few minutes. While this voids Radio Shack's 
warranty, it's a minor inconvenience compared to the usefullness 
and excitement you gain. A 

The Rush Is On. Frankly, this is one of the hottest items 
we've offered Don't miss out. At your dealer now, or order jjj§§ 
direct for immediate delivery. (Specify version for Model 1 or 
Modd ill) Introductory Price: $149.95 plus $4.50 shipping. 

free lower case and demo programs. (Visa & 
?%S$ercharge accepted. Calif, residents add 6% sales tax.) 
Dsaier inquiries invited. 
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* 80-Grafix is a trademark of Programma International, Inc. <•> TRS80 is a trademark of Tandy Corporation 
Apple II is a trademark of Apple Computer, Inc » Commodore CBM/PET is a trademark of Commodore International Ltd 





At the time when most TRS-80 users were still 
trying to put intelligent looking graphics characters 
on the screen, a program called "Android Nim" 
appeared. It not only had characters, they moved] 
And they were not slow either, they blinked their 
eyes, nodded heads and shot each other off the 
screen. The Androids were first featured in the 
Nov/Dec 1978 issue of 80-U.S. At that time, fast 
animated graphics really caught some attention, and 
Leo Christopherson was their author. 

He went on to write others - Snake Eggs, Beewary, 
Dancing Demon, Duel-N-Droids and more, some for 
the Apple computer. 

Leo's fast graphics were a result of his "string 
packing technique", which allows packing machine 
language code into strings for fast action. For a while, 
it was called "super graphics" by others, but it never 
caught on and rightfully so, since string packing can 
be used for other than graphics. 

Over the past couple of years we have had many 
requests for more information about Leo. Some 
asked if. we chained him to his computer to get his 
programs. Others just wanted to know more about 
him. One person called him the "Walt Disney of TRS- 
80 Graphics". 

Leo (see cover photo) is a very quiet, soft-spoken 
school teacher. He teaches science and mathematics 
to seventh and eighth grades in a school district near 
Tacoma, Washington. His students enjoy his classes 
because he makes his subjects interesting and 
challenging. His school district has several TRS-80 
and Apple computers, which Leo uses in hiscourses. 
He uses his computer for grading, and has recently 
completed a Gifted Student program to run on the 
school computers. 

At home, Leo is a very private person, and 



surrounds himself with the things he has an interest 
in. He owns a three-manual Rogers pipe organ which 
he plays with considerable expertise. He is also a 
composer of sorts. One day while there, he played a 
version of his own composition, based on a Beatles 
song, called "The Up and Down Toccata and the 
Everlov'n Fugue". It almost made Bach sound like a 
fake! 

Aside from organ music, Leo has a nine voice 
music board in his Apple computer, and creates 
versions of his own as well as music from Scott 
Joplin and others. As with all things Leo does, these 
come off with meticulous preparation and care. 

Aside from music, he is an avid science fiction buff, 
likes philosophy, and art. He does pen and ink 
sketches and works with oils on occasion. He is the 
artist on several 80-U.S. covers and several inside 
drawings. (Note the drawing which accompanied 
"The Great 80-U.S. Chess Tournament", in the 
Nov/Dec 79 issue). Leo signs his works with .037, 
which when read upsidedown says Leo. 

Leo currently uses a Model I TRS-80 with disk, an 
Apple II with disk, a Model III and the pocket 
computer. His school computer projects keep him 
busy, but he is working on a new graphics game for 
the Model l/lll. His latest technique, line packing, 
(see previous article) allows him to write machine 
language in Basic, thereby gaining the best of both 
methods. Perhaps when he adds a color computer to 
his collection we will see even more of his genius. 

Leo works alone. His creations show a definite 
subtle humor which is uniquely his. If you ever have 
the good fortune to spend an afternoon with him, you 
see the same humor show through in his speech and 
manner. Above all though, he likes being a teacher, 
and views the computer as an interesting 
diversion. $ 
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Mere humans. Sounds insulting, doesn't 
it? But the fact is, our computers tower over 
us in one principal virtue. Patience. They 
can await input for days on end without 
becoming bored . They can digest DATA 
statement after endless DATA statement and 
not once complain of the tedium . They endure 
our most serious blunders with aplomb . And 
we humans? We curse the monotony of pro- 
gram entry , mutter at our clumsiness with 
EDIT, and rail at Tandy for their %#&!%! 
inadequate keyboard. Aargh! Computers are 
supposed to relieve this tiresome aggrava - 
tion, not intensify it! Why doesn't somebody 
do something? 

We have. We wrote OMN 1-KEY . And if 
you had OMN I -KEY , your programming would 
not only be less tiresome , but more produc- 
tive. How? Well, when was the last time these 
little annoyances got under your skin? 

KKey BBounce. OMN! -KEY eliminates it. 

Repetitive Keying of the Same Character . 
OMN 1-KEY has autorepeat . Hold any key 
down , and it repeats about eight per second . 

Typing Out Common Keywords. OMN I - KEY 
lets you assign BASIC keywords to the 
SHIFT-letter keys. Type SHIFT-F , for exam- 
ple, and you get PEEK( , or whatever you've 
made that key represent . 

Repetitive Keying of Similar Phrases. Have 
you typed "DATA x, y , z ENTER" one too 
many times? OMN l-KEY's macro key types the 
repetitive stuff with a single keystroke . You 
just fill in the blanks. In fact, it's possible to 
enter hundreds of DATA statements in a row 
without typing line numbers, "DATA" , or the 
commas! OMN l-KEY's unique macro pause and 
macro repeat make it possible. And you pro- 
gram the macro key any time and any way (up 
to 80 characters) you see fit. 

The "What's on the right of the cursor?" EDIT 
Mode. Come on. You don't need to put up with 
this half-blindness when editing a program . 
If the statement is listed on the screen (even 
a multi-liner) , OMN 1-KEY lets you edit it in 
place and in full view with its movable cursor. 
And you don't need any fancy commands to do 



it , either . To insert characters , just type 
them — the lines will shift to accomodate 
them. Deletions are even easier — just hit the 
CLEAR key. Need to move a statement? Just 
edit the line number! It's that easy. 

Separate Drivers for Lower-case, Printers, 
Video Display, etc. , etc. OMN 1-KEY has its 
own lower-case driver and shifting built in. 
But the real beauty of the beast is what you 
can add to it. If you can use the Editor /As- 
sembler , you can write your own OMN 1-KEY 
modules . OMNI-KEY has a configuration mode 
which reads your specially-assembled SYS- 
TEM tapes and merges them with the 
OMN 1-KEY functions into one single load mod- 
ule. OMNI-KEY , in its standard and custom- 
ized forms is equally at home with Level II or 
Disk BASIC , and you don't even have to set 
MEMORY SIZE to use it! Just enter BASIC, 
LOAD or CLOAD OMNI-KEY and RUN. It 
activates itself, reserves its own memory , and 
waits in the background until needed . Pretty 
simple . 

Simplicity . That's the power of 
OMN 1-KEY . It's simple , it's easy to live with, 
and it lets you, the programmer, do what you 
do best. Program . Without the tedium , with- 
out the aggravation , and, best of all , without 
spending a lot of bucks. At only $23, 
OMN 1-KEY has got to be the best deal going! 
And if you're a mere human , that's something 
to think about . 



OMNI-KEY cassette for TRS- 80 Model I, 
Level II and Disk BASIC, instructions, 
postpaid to any U. S., Canadian, or Mex- 
ican address. Others are F. O. B. Port 
Towensend. VISA and Mastercharge are 
welcome. Dealer inquiries are invited. 




P.O. Box 464 Port Townsend, WA 98368 
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Do you have problems with string packing machine 
language routines? 

String packing does offer the advantage of 
needing no "memory size". But there is the problem 
of avoiding code 34 and zeros in the code, not to 
mention the constant struggle with string variable 
pointers. 

In the May/Jun 1980 issue of 80-U.S. Leo 
Christopherson gave us the machine code for his 
sound routines. The system presented here adapts 
that same demo program to an integer array which 
avoids the problems involved in string routines and 
the memory size question. 

The TRS-80 stores integer array variables in 
continuous blocks in memory, with each element 
pointing to two bytes in the block that defines it's 
value, i.e., the value for A(1 ) may be stored in 
locations 30000 and 30001, the value for A(2) in 
locations 30002 and 30003, and so on. Integer 
elements are stored with the least significant byte 
(LSB) below the most significant byte (MSB). 

It is important to note that any integer with a MSB 
of more than 1 27 will be stored as a negative number, 
and trying to stuff a number greater than 32767 into 
an integer variable will give you an FC? error. 
Therefore, line 50 in the accompanying program 
converts this condition to the proper integer. 

Integer packing is very convenient because you can 
use 34 and zero in your routine. Not only this, but it is 
safe, becuse the only pokes involved are used to set 
up the USR call. (Many a program has been lost 
through indiscriminate poking!) 

Here is a rundown on how the program operates: 
10 Creates the integer array 
30 Gets data from data lines 210-270 
40 Converts two data elements into an integer 
50 Test and store properly 
70 Set up call address 
80 Test for disk 
90 Define USR for Level II Basic 




100 Define USR for disk Basic 
1 1 Choose your sound 

1 40 Tell routine your choice (as determined in lines 

120 and 130) 
1 70 Random pitch for choice #1 
1 80 Random duration for choice #2 
1 90 Random duration for choice #3 
200 Execute machine language program 

Have fun with this alternate method to machine 
language routines in Basic! 

LISTING OF ALTER/BAS PAGE 1 

10 CLS:DEFINT A:DIM A(37) 
20 FOR X-l TO 37 
30 READ A1,A2 
AO B=A2*256+A1 

50 IF B>32767 THEN A(X)=B-65536 ELSE A(X)-B 
60 NEXT X 

70 U=VARPTR(A( 1)): U2=INT(U/256) : U1=U-U2*256 

80 IF PEEK(16396)=201 THEN 90 ELSE 100 

90 POKE 16526, U1:P0KE 16527 ,U2 :GOT0110 

100 DEFUSR=U : CMD "T" 

110 PRINT@400 , "PRESS 1, 2, OR 3" 

120 Z$=INKEY$:IF Z$»"" THEN 120 

130 IF Z$<>"1" AND Z$<>"2" AND Z$<>"3" THEN120 

140 A(4)=(254*256+VAL(Z$))-65536 

150 ON VAL(Z$) GOT0170,180,190 

160 GOT0110 

170 A(9)=2560+RND(255):GOT0200 
180 A(18)«123*256+RND(5):GOT0200 
190 A(28)=100+RND(5)*256:GOTO20O 
200 K»USR(0):G0T0110 

210 DATA33, 1,2, 14, 255,62, 1,254,2,40,21, 254 
220 DATA3,40,38, 17,200, 100,237, 97, 67, 16,254,237 
230 DATA105.67, 16,254,21,32,243,201, 17, {,5, 23 
240 DATA237, 97, 71, 16,254,237, 105,71, 16 254,60,32 
250 DATA243,21,32,239,201, 17, 100,5, 123,237,97 71 
260 DATA16,254,237, 105, 71, 16,254,61, 32, 243, 21 32 
270 DATA239.201 ' ' ' 

280 END 
80 END 

70 END • 



30 80-U.S. Journal May/Jun 1981 



We've taken artistic license with our illustration in order to : lak • poin • 
MYCHESS is the most powerful microcomputer chess program on the market, 
bar none . : ;:. ||§| 

Proof? AS! you want and then some. Tor example, MYCHESS wa ■ th : ■ ,. 21 .- 
the "Fifth West Coast Computer Fair". At the "Third World Computer Chess 
Championship" in Linz, Austria, it was the highest finishing micro... i - ; : iii o ■ t 5 
winning the special Blitz Tournament (5 to 1) against six top players. Add to this its 
USCF rating of 1565, and you know you're dealing with the King of the Hill. 

You'll find MYCHESS is the perfect companion or opponent whether you're an 
advanced player, or starting your first game. For it lets you set the difficulty of the 
game from level 1 to 9. And, you can change levels of play as you go ... or even 
change sides. Want to set time limits for moves? MYCHESS can do it. Want to save 
a game for later? MYCHESS will store up to 6 games. And, for added interest, it will 
even predict the upcoming line of play. 

If you're a player, you'll appreciate the MYCHESS challenge. If you're a beginner, 
you'll enjoy learning from a master. Either way, when it comes to superior chess, 
make your move ... to MYCHESS. Available for the TRS-80* with 32K, for $34.95 
including disk, documentation and backing by Programma International. Apple" 1 
version coming soon. 



Can you beat 



MbYJTHf 





Circle 15 



Starwriter S - 25 cps - $1795 
Starwriter II - 45 cps - $2195 



You knew it could print... Cables: $38 - specify TRS-80 Model I, II or III 

Did you know it can PLOT?? 



TWO Printers on ONE Computer 

Our WYE Interface is bidirectional. 
CMOS switched lines. 
For TRS-80 Model I and III - $1 19.00 
For TRS-80 Model II - $149.95 
Do it with a flick of a switch! 
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PRSWT WHEELS 
For your Daisy Wheel Printers 
Set of 6, complete with case. 

$69.00 



LORDS 

Small Systems Design 
P.O. Box 99 

Port Angeles, WA 98362 
Telephone (206) 457-3064 




Only the legendary light sabre of Dnev can kill the 
minotaur. It is secreted away in stygian darkness. To get 
it, you must deal with cave bears, gnomes, pits, wraiths, 
and much more. You must avoid the minotaur at all 

costs. 




Alas! Once armed with your light sabre, the minotaur 
flees! What treasures must be found and used as bait? 
Why is the maiden so beautiful? What lies beyond the 
fog ... . 

3-D PERSPECTIVE GRAPHICS 

Labyrinth features the full screen 3-D perspective 
graphic displays that have made Asylum and Deathmaze 
5000 best sellers. You can actually see what you are 
doing and where you are going! The mazes and build- 
ings are bit-coded. This allows us to store gigantic mazes 
in small amounts of memory. These programs are not 
just a series of stored pictures. Our mazes typically 
contain over 600 locations. Further, machine-language 
programming gives instantaneous graphics generation 
and game response! 

LABYRINTH places you in a huge maze of tunnels 
inhabited by gnomes, ghosts, witches, and an evil mino- 
taur. You must find the weapons and treasures needed 
to destroy the minotaur before he destroys you! There 
is food enough in the maze to hold out for months! 
TRS-80 Level II 16K or Model III 16K $12.95 

ASYLUM places you on a cot in a small room. Periodi- 
cally, a janitor lobs a hand-grenade through the window 
of your locked door. What you do next could mean 
survival and escape! It could also mean permanent 
residence in the home for Deathmaze survivors! To 
leave, you will have to deal with guards, fellow sur- 
vivors, doctors, the infamous Crazed Carpenter, and 
much, much more. Don't expect to get out any time 
soon! There are over 1200 locations! 

TRS-80 Level II 16K or Model III 16K $14.95 

DEATHMAZE 5000 places you in a gigantic five-story 
building. There is only one goal. ESCAPE ALSVE! Mon- 
sters, dogs, vampires, and other vile horrors will plague 
your every step as you struggle to survive one of the 
most challenging adventures ever written. As of Decem- 
ber 20, only two people outside the Med Systems' staff 
were known to have escaped! 

TRS-80 Level II 16K or Model III 16K $12.95 



SATISFACTION GUARANTEED! 
Asylum, Deathmaze 5000, and Labyrinth are guaranteed to 
be the most incredible 16K 3-D graphic adventures you can 
buy. If for any reason you are not satisfied with these 
products, return your order within 14 days for a prompt and 
cheerful refund. 

ORDERING INFORMATION 
Orders are processed within five working days. We pay all 
postage and handling within the U.S., Canada, and U.S. ter- 
ritories. European orders please include $3.00 for air post. 



□ Asylum 

□ Deathmaze 5000 

□ Labyrinth 

□ Programs on Disk 

□ Programs on Cassette 



Name 
Street 
City _ 



($14.95) $. 
($12.95) $. 
($12.95) $. 
(add $4.00) $. 
(N/C) 
TOTAL $. 



State 



Zip 



□ VISA 




Computer: 

□ TRS-80 Lll 16K 

□ Mastercard 
MCor VISA# _ 



□ Model III 16K 

□ check 
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ULTRA-MON is a unique and power- 
ful machine-language monitor. It is ROM 
independent and will function in Level II 
or DOS BASIC. With ULTRA-MON, 
you will be able to write, modify, study 
and debug machine -language programs. 
Plus, you'll be able to avoid the frustra- 
tions and "bomb-outs" usually associat- 
ed with machine-language programming. 
ULTRA-MON displays, disassembles, 
traces (hardcopy trace disassembly, too!), 
modifies, relocates memory, prints and 
even relocates itself with simple com- 
mands. Using interpretive execution, 
ULTRA-MON allows you to put break- 
points in ROM. This powerful monitor 



can even fetch, decode, disassemble and 
analyze each instruction individually so 
that your program cannot bomb out. 
ULTRA-MON is designed for the begin- 
ning machine- language programmer as 
well as the professional. The documen- 
tation contains a Simple Demonstration 
section geared to the novice programmer. 
Consequently, the program is a learning 
device as well as an extremely useful pro- 
gramming tool. 

If you are serious about programming, 
you need to add this powerful utility to 
your library today. (Tl) 

Order No. 5003R 



UTILITY 



Here's software utility that can make pro- 
gramming easier for you. These powerful 
tools will take much of the frustration out 
of essential operations. You'll wonder 
how you managed without them. They'll 
stamp your work with the mark of profes- 
sionalism. 

RENUM— Now you can easily renumber 
any Level II program to make room for 
modification or to clean up the listing. 



(Only for use with 16K of memory.) 
DUPLIK— This program will let you 
duplicate any BASIC, assembler, or 
machine-language program, verify the 
data, and even copy Level I programs on 
a Level II machine. 

See how efficient and well-ordered your 
programming becomes. (Tl) 



One of the most popular and useful of 
the utility packages, Utility II is the sec- 
ond in a series of programs designed to 
take the drudgery out of editing. 

This combination of programs adds 
flexiblity to your BASIC programs by 
allowing you to combine them with other 
BASIC programs, or with machine-lan- 
guage programs or routines. 
CFETCH— You'll be able to merge 
BASIC programs, with consecutive line 
numbers, into one program. CFETCH 
can also search through any Level II pro- 
gram tape and display the file name for all 
the programs. 



CWRITE— Combine subroutines that 
work in different memory locations into 
one program. CWRITE works with 
BASIC and/or one or more machine-lan- 
guage programs. It will even give you a 
general checksum to verify that your pro- 
gram hasn't dropped any bits. 

Use these two programs as your de- 
pendable "assistants" to speed merging 
processes and as a totally reliable retrieval 
means in search and edit operations. 

A fine tool for your TRS-80! (Tl) 
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SESSION UTILITY PACK 



Do you want to add sound routines to a 
Space Trek program that already uses 
16K? Or maybe you need an extra column 
in that financial report program, but 
when you run it, you get OM errors? 

With a wave of your hand, and a little 
help from either of the COMPRESSION 
programs, in this package, your problems 
are over. 

Compress-80— fits in 265 bytes, deletes 
spaces, and offers the choice of leaving 
REMark line numbers in the program, or 
deleting them altogether. 



Supercompress— uses 767 bytes and 
can do everything COMPRESS-80 can do 
PLUS, it packs the program into the 
smallest possible number of multiple 
statement lines. 

With the Compression Utility Pack and 
your own programming skill, you can add 
all those little extras to your BASIC pro- 
grams. (Tl) 

Order No. 0246R 



You've bought a super machine-code 
program, but now wonder how it works. 
Maybe you even used a quick PEEK rou- 
tine to glance through it when it was in 
memory. If so, you definitely noticed the 
complete lack of comments in the code, 
making it almost impossible for you to 
decipher and understand it. 

Well, Instant Software's Labeling Dis- 
assemblers are the answer to your prob- 
lem. 

TLDIS (Tape-based Labeling Disas- 
sembler) and DLDIS (Disk-based Label- 
ing Disassembler) are three-pass, label- 
assigning disassemblers which assign 
labels (where appropriate) to the routines 
in a machine-language program. Their 
output is almost identical to that of a 
hand-assembled source code. 

You can send the disassembly to a line- 
printer (Radio Shack parallel port) for 
either TLDIS or DLDIS. (The difference 
between these utilities is the storage mode 
of the disassembly.) 

TLDIS can send the disassembly to cas- 
sette tape, DLDIS can send it to disk; 
both send it to the video monitor. The 
stored disassembly from TLDIS may 
be reassembled with Radio Shack's 
EDTASMTM— the disassembly from 
DLDIS, with Apparat's extension of 
EDTASMTM. Because of the use of 



labels, it is a simple matter to change any 
object code program by disassembling it 
and then making changes to the resultant 
source code, without losing track of 
jump/load addresses. Labels start with 
"AAOO" and increment up, in even num- 
bered steps (AA02, AA04, etc.). The odd 
numbers (AA01, AA03, etc.) are left for 
you to use for the source code during 
reassembly. 

The printing of the disassembly may be 
temporarily halted by using [SHIFT] @ 
Oust as in BASIC) or it may be ended by 
pressing the [BREAK] key. It also has a 
comments column to display ASCII char- 
acters used in a LD or CP opcode. 

TLDIS and DLDIS may be relocated in 
memory to avoid conflict with the pro- 
gram you disassembler. 

The next time you need to "climb in- 
side" a machine-code program, take 
DLDIS or TLDIS with you. We promise 
that it will be an easier journey. 



(TLDIS) $14.95 (Tl) 
Order No. 023 1 RD 



TO ORDER: 

See Your Local 

instant Software Dealer 
or 

Order Directly: 

CALL TOLL FREE 
1-800-258-5473 




PETERBOROUGH, N.H. 03458 
603-924-7296 




DATE: 28.02.2047 
LOCATION: 270 million miles from 
Terra 

MISSION: Maintaining Terra's Space 
Lanes 

Briefing will follow: 

1 . 1 Your mission is to destroy any aster- 
oids in your sector and to prevent alien 
spacecraft from infiltrating the Terran 
Defense Network. 

1 .2 Your ship is armed with an anti-matter 
cannon. You can shoot large asteroids, 
but this turns them into many smaller 
asteroids, each capable of destroying your 
ship. 

1.3 In addition, alien ships can make in- 



stantaneous hyperspace jumps into your 
area and start firing on your ship. 
1.4 You'll need lightning reflexes and 
nerves of steel to survive Asteroid. We 
have no use for non-survivors! 

Asteroid, a real-time, machine-lan- 
guage game, features variable levels of 
difficulty, superb high-speed graphics, 
sound effects and automatic score keep- 
ing. (Tl) or (T2) 

Order No. 0237R 
$14.95 Tape. 
Order No. 0247RD 
$19.95 Disk. 



BALL TURRET 
GUNNER 

For years the Petro Resource Con- 
glomerate has attacked our photon collec- 
tion stations and strangled our deep-space 
trade routes. The PRC Exxonerator Class 
light fighters (code name: Gnat) have 
been their main weapon. Now you can 
strike back, by joining the Ball Turret 
Gunner Service. 

Imagine yourself at the control console 
of an LW-1417 Stratoblazer (Type B 
Strategic Laser Weapon). Your Hindsight 
Director informs you that a Gnat fighter 
is coming in for an attack. You pivot your 
gigawatt laser turret until you can see the 
target on your monitor. The Range Indi- 
cator shows him coming in fast. The 
Targeting Computer studies his course 
and speed as your finger tenses over the 
firing key. You know you'll have only a 
fraction of a second in which to react. The 
Gnat fighter's evasive maneuvers cause 
him to dance in your sights. Suddenly, 




you see the FIRE Command and you 
react instinctively. Your laser beam lashes 
out and reduces the Gnat to an expanding 
ball of ionized gas. Mission accom- 
plished! 

Ball Turret Gunner, with your choice 
of multiple levels of difficulty, optional 
sound effects and superb graphics, is 
more than just a game. It's an adventure. 
Experience it! (Tl) 

Order No. 0051R $9.95. 
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COSMIC PATROL 

WARNING: PLAYERS OF THIS 
GAME SHOULD BE PREPARED FOR 
A STATE OF REALISM HITHERTO 
UNAVAILABLE ON THE TRS-80 
Skilled players soon master many diffi- 
cult computer games, but COSMIC 
PATROL is in a world all its own. The 
challenge intensifies! Supporting graphics 
and sound (optional) make each en- 
counter an exciting new experience. It all 
adds up to a Super 3-S package . . . skill, 
sight and sound. 

Scenario: The Cosmic Patrol program 
puts you in the command chair of a small 
interstellar patrol craft. Your mission is to 
defend Terran space and prey on the Que- 
lon supply ships which carry essential 
parts and lubricants for that implacably 
hostile robotic force. The drone freighters 



are fairly easy pickings for the accom- 
plished starship pilot, but beware of the 
I-Fighter escorts. They're armed, fast and 
piloted by intelligent robots linked to bat- 
tle computers. They never miss. 

The Cosmic Patrol program is not just 
another search and destroy game. With its 
fast, real-time action, impressive sound 
option and superb graphics, this machine- 
language program is the best of its genre. 

Don't keep putting quarter after quar- 
ter into arcade games or spending big 
bucks for video game cartridges. Get 
Cosmic Patrol from Instant Software — 
and get the best for less! (Tl) 

Order No. 0223R 
$14.95 Tape. 
Order No. 0224RD 
$14.95 Disk. , 



II 



The INVADERS are coming! Earth's 
defenses are dead except for your Laser 
base. Your assignment is to destroy the 
approaching INVADERS before they de- 
stroy Earth. Before Earth's sensors failed, 
they detected 550 armed invaders in 
space, speeding toward us in 10 attack 
formations of 55 in each group. The sen- 
sors detected four different types of at- 
tack craft: Large, Medium, Small, and a 
short profile craft which is the most dif- 
ficult to destroy. If you cannot stop these 

space attackers they will stop Earth 

for good. (Tl) 

Order No. 0240R $9.95. 



(Tl) = TRS-80 Model 1, 
Level II, 16K RAM. 

(T2) = TRS-80 Model 1, 
Level II 16K, Expansion 
Interface 16K+ 1 disk 



See Your Local 
Instant Software Dealer 
or Call Toll- Free 
1-800-258-5473 
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The Sep/Oct 1980 issue carried 
my article explaining how the original 
Radio Shack line printer (Centronics 
779) could be modified, without 
cutting wires, to print lower case as 
well as standard upper case letters. 
One of the most requested follow-up 
projects for the 779 printer was one 
which would automatically silencethe 
noisy motor associated with that 
printer. 

What is needed is a project which 
will normally keep the motor in an off 
condition. Then, upon sensing that 
data is to be printed, it should 
automatically turn on the motor. 
When printing is completed, it should 
shut off the motor without action from 
the operator or additional commands 
inserted within a program. 

This issue's project will do just that. 
It is one I have had in operation on my 
779 for a little better than a year now, 
and it has not failed me once. This 
project can be implemented without 
cutting any wires, and the total cost is 
less than $1 5.00. 

How it Works 

In the Nov/Dec 1980 issue, I 
explained how the TRS-80 reads four 
bits from the printer to check its status 
prior to sending data. Only two of 
these four status leads are used by the 
printer, one for printer internal busy 
and one for out of paper. 

If any one of these four status lines 
indicate busy, the TRS-80 will read 
them again and again until they 
indicate they are not busy. At that time 
it will send data to the printer. Either or 
both of the two unused status lines 
can be wired to indicate some other 



type of busy, and that is what the 
circuit shown in Figure 1 does. 

Figure 1 shows the output of Q3 
connected to one of the two status 
lines not normally used (pin 32 of the 
printer bus). A physical view is shown 
in Figure 3. This lead will be normally 
held low by Q3, indicating the printer 
is not ready because the motor is not 
on. This will cause the TRS-80 to 
continue to read the printer status 
lines. However, upon the first reading 
of the status lines, the read pulse itself 
is monitored by pin 1 of IC1 and passed 
on to timer "A" (pin 6 of IC2). 

This negative read pulse causes the 
output of timer "A" (pin 5) to go from 
low to high and remain high for a set 
period of time (determined by C1 and 
R2), adjustable from 1.5 to 10 
seconds. This high output is passed 
through D1 and on to RL1 , a 5 volt DIP 
relay. RL1 operates and keys the Triac 
(Q4) into conduction, which provides 
power to the printer's motor. This DIP 
relay, Triac and RL1 circuit is identical 
to that used in my "External 
Expansion Unit", featured in a 
previous issue. 



The motor now turns on, but the 
TRS-80 still sees a busy condition 
from Q3. Before continuing, let me 
explain that timer "B" is an 800 
millisecond timer, which is being kept 
from timing out by Q2. The high output 
from timer "A" goes not only to D1 for 
turning on the motor, but also to Q2, 
turning Q2 off. Now timer "B" can 
begin its 800 millisecond timeout. 



Larry Panattoni 

After this 800 millisecond timeout, 
the output of Q3 is forced high, 
removing the busy signal from the 
printer's newly used status lead (pin 
32). This indicates to the computer 
that the printer is ready to receive 
data. This 800 millisecond delay is 
necessary to allow the motor to build 
up to its proper speed. 

Timer "A", as mentioned above, has 
an on-time of 1.5 to 10 seconds, 
determined by R2. This does not mean 
the printer will be on only for that 
amount of time. The TRS-80 sends out 
a read pulse prior to each and every 
character it sends to the printer. Q1 
receives this read pulse from IC1 and 
resets timer "A" back to the beginning 
of its time duration. Therefore, as long 
as read pulses arrive at Q1 , timer "A" 
will never timeout. 



If the set time should lapse wnnout 
a read pulse arriving, it indicates that 
printing is finished. Then the output of 
timer "A" drops low, and the motor 
shuts off. 

The operation sounds complete - so 
what is IC1 for? IC1 sets its second 
input (pin 2) from ME 24, pin 8 (from 
within the printer) which is an 
inverted status signal. It has a high 
signal when busy and a low when idle 
(ready to accept data). 



As long as this signal is low (idle), 
the read pulses will pass through IC1 
as if it was not there. But, say you run 
out of paper and need to add more, or 
you want to hold up printing for some 
other reason; all that is necessary is 
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for you to depress the PRINT switch on 
the face of the printer to the off 
position. When this happens, pin 2 of 
IC1 goes high (indicating busy)and IC1 
no longer will pass the read pulses to 
Q1 or timer "A". Hence, timer "A" 
times out and the motor shuts off. You 
are now free to change paper, do your 
calculations or whatever, in peace and 
quiet. Without IC1, the motor would 
have continued to run during this 
time. 

Physical Connections - Adding 
Jumpers 

This all sounds good. But one small 
problem does exist. If the circuit in 
Figure 3 is to be located in the printer 
itself (and it should be) we will need to 
pick up the read pulse from within the 
printer. Butthis read pulse is not wired 
to leave the expansion interface unit, 
so it does not appear in the printer. 
This can be overcome by connecting it 
ourselves - to one of the unused bus 
leads between the expansion 
interface and the printer. 

Figure 2 shows the physical location 
of this connection (strap). The read 
pulse is obtained from pin 1 of Z46 and 
connected to the vacant bus lead #32 
within the expansion interface. This 
sends the read pulse through the 
ribbon cable and allows it to be picked 
up by the circuit of Figure 1 from 
within the printer on bus lead #34. The 
reason the bus lead numbers do not 
appear the same at both ends is 
because the two different producers of 
this equipment counted from different 
ends. 

Figure 3 shows the location of this 
read pulse on the printer bus. Also 
shown is the connection of Q3 to bus 
lead 32, which is one of the two status 
leads that were previously unused. 
Figure 3 also shows the wire 
connected from pin 8 of ME 24 going 
to the input of IC1 pin 2 (in Figure 1). 
This is what shuts off the motorduring 
an out-of-paper or manual busy 
condition. 

Operation 
After the project has been 
completed and installed, the printer 
can be plugged into an AC outlet and 
the power switch kept on. I leave mine 
connected to the same power outlet as 
the computer, so whenever the 
computer is turned on the printer 
receives power too. The initial 
powerup causes a spike in timer "A" 
which does activate the motor, but it 
shuts off again within two seconds 
(the setting I normally keep time "A" 
at). 




Photos of the circuit board and the author's Line Printer I 




Parts List 



IDENTITY 


TYPE 


DESCRIPTION 


IC1 


74LS32 


Quad "OR" gate 


IC2 


556 


Dual 555 timer 


Q1, Q2 


2N3906 


PNP General purpose transistor 


Q3 


2N2222 


NPN General purpose transistor 


Q4 


Triac 


400 Volt (RS 276-1000) 


R1,R3,R5 


10K ohms 


1 /4 watt resistors 


R2 


500K 


1/8 watt mini PC 






Potentiometer 


R4 


100K ohms 


1 /4 watt resistor 


R6,R7 


1 50 ohms 


1 /4 watt resistor 


C1 


20 uf 


1 2 volt electrolytic capacitor 


C2,C5,C6 


.01 uf 


Tantalum capacitors 


C3 


4.7 uf 


1 2 volt electrolytic capacitor 


C4 


.1 uf 


200 volt metalized-film 






capacitors 


D1,D2 


1N914 


50 volt 100 ma diode 


RL1 


5 volt DIP relay 


Fits in an IC socket 


Heat sink 




for Q4, the Triac- 


Twin lead 


connectors 


RS part 274-222 
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Adjustable 
1-5 TO 10 SEC 



foi uF — J , 

i [3 / 

Timer A • 1 
V 2 of IC2 I 5 



556 I 



fed 



^ . 5 , 



R2 
500 K 



01 

1N914 



To all 
♦ 5V 



All ready brought 
I 10 A.C. out on 
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FIGURE #1 

This circuitry automatically turns the 779 Printer 
motor on whenever the computer (S-80) wants to 
send data to the printer, St effectively tells tfie 
computer to wait 800 milliseconds for the motor to 
build up RPM. Then if the computer stops sending 
data to the printer for more than 1 ,5 seconds 
(adjustable to 1 sec.) the NOISY printer mote 
shut off automatically. 
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Bus to Modem 



Button 
On / Off 



Bus to S-80 Computer 



Bus to Screen Printer 
essentially a multiple of 
the S-80 Bus 




Bus to Line Printer 



The R.S. expansion interface is viewed 
upside down with the bottom cover 
removed.. 



Bus to Disc Drives 

FIGURE #2 

An added jumper is placed inside the R. S. Expansion 
interface from pin 1 of Z46 to an unused lead on the Line 
Printer Bus (#32). This extends the Read Pulse for the line 
printer's address over to the line printer where it is picked 
up and monitored by the circuitry of Fig. #1. The S-80 
always sends out this Read Pulse prior to sending data to 
the printer. 



Added Jumper— from Z46 Pin 1 Bus 
Lead #32. 



34 lead Ribbon to Line Printer 
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FIGURE #3 



The circuitry of Fig #1 can be placed on a small circuit board 
and with right angle brackets, can be mounted inside the 
printer on the vacant side panel (see photos on page 37). 
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FIGURE #3 
The circuitry of Fig. #1 is connected to the 779 
printer via the five added jumpers on ME 17, 
ME24, and the Printer Bus. 
Then the motor connector is removed from its 
original connection and each part is used to make 
a new connection with the added connectors 
(R.S. part nr 274-222). 
This allows the circuitry of Fig. #1 to 
gain control of the NOISY printer 
motor without cutting any wires. 



To Fig. #1 



To fig. #1 




Original Centronics 
Connectors 



To fig. #1 C 



Added Jumper 



BFom ME24 Pin 8 to 
IC-1 Pin 2 of Fig. #1 



Between Bus Lead #32 
and Collector of Q3 
in Fig. #1 




34 Lead Ribbon Cable 
to 

Expansion Interface 



Ground - to Fig. #1 



+5 Volts - to Power 
Fig. #i 

Added 
<mf er-s 

k Between Bus Lead #34 

and Pin #1 of 'OR' 
gate (IC-1) in Fig. #1 
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For TRS-80 Basic ^ 
Programmers... A Way To Get 
Your Basic Programs Working Fast 



BasicPro Saves Hours of Programming Drudgery 

Write and debug your BASIC programs faster. With Basic 
Pro you get 12 powerful programming aids that let you 
instantly: 

• MOVE or COPY code • RENUMBER lines 

• RENAME variables • JOIN programs together 
And more! You also get a handy CROSS REFERENCE list 
that shows you where every variable is used. BasicPro even 
has a SPEED-UP option that makes your code run faster. 

BasicPro Is Easy To Use. 

Just select what you want to do from the command 
menu. You never get stuck with BasicPro. Just use the 
unique HELP command. BasicPro provides plenty of prompt 
messages to guide you through any programming session. 

BasicPro comes complete with instruction booklet. 
Start enjoying effortless programming! Order BasicPro 
today! $24.95 

Also New...VisiCom - The Visible Computer 

Learn Machine Language Programming Fast with 
VisiCom. VisiCom turns your TRS-80 into a simple computer 
with registers and memory displayed. VisiCom's small set of 
machine language instructions is easy to use. You start 
writing machine language programs immediately. 

See Your Machine Language Programs Running 
"Inside" VisiCom. You see data move in and out of 
registers and memory as VisiCom executes each instruction. 
It's EASY to learn machine language programming when you 
can SEE what every instruction does. 

VisiCom comes with instruction manual. 

Start learning machine language programming the fast, 
fun way! Order VisiCom today $ 19.95 

Special Offer! Act NOW and SAVE 20% 
By ordering BOTH BasicPro and VisiCom, 
you pay just $35.95 (reg. $44.95) 

Both BasicPro and VisiCom require TRS—80 level II and (16K) memory 
and are available on tape cassette. 

SOFTWORX, INC^P^.^Box 908(^Seattle, WA 98109 

Circle 20 KM 2 

Please send me the items checked below 

□ BasicPro $24.95 

□ VisiCom $19.95 

□ BasicPro & VisiCom $35.95 

Name : 

Address 

City . . 

State _____ . . Zip 

Enclose check or money order and mail this coupon to: 
Softworx, Inc. P.O. Box 9080, Seattle, WA 98109 
Or Charge to: 

Visa# Mastercharge# 

Cardholder Signature_ 

ExpiratioYi Date 

Visa and Mastercharge customers may call (206) 284-7388 
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Greg Perry 
For the Model I and III 



Dear Level II users-are you tired of the old drudgery 
of having to look up in your Level II manuals every 
time you get an error because the error messages 
supplied by the Level II ROM are not concise? 

Wouldn't you like to have the specific, found-on- 
no-other-brand, detailed error messages that only 
appear on other versions of the TRS-80 Model I? 
Well, now you can! Enter the following program, 
(**Be sure to set memory size) and then generate a 
few errors by typing in garbage, or dividing by zero, or 
anything you can think of. 

Now if you have tried this, feel free to clap your 
hands! You now have the detailed messages that 
only other models have!! 



100 REM ** SET MEMORY SIZE TO 32650 
110 C = 
120 CLS 

130 FOR I = 32664 TO 32767 
140 READ N 
150 POKE I,N 
160 C=C+N 
170 NEXT I 

180 IF C07788 THEN PRINT"WARNING . .DAT 

A IS NOT CORRECT": STOP 
190 POKE 16806,195 : POKE 16807, 152 : 

POKE 16808, 127 
200 DATA 123,33,209,127,6,6,190,202,18 

7,127,35,5,194,158 
210 DATA 127,6,12,190,202,196,127,35,5 

,194,169,127,33,245 
220 DATA 127,205,167,40,195,25,26,33,2 

32,127,205,167,40 
230 DATA 195,25,26,33,239,127,205,167, 

40,195,25,26,0,0,0,0,2 
240 DATA 24,34,36,40,42,0,4,6,8,14,18, 

20,22,28,32,38 
250 DATA 44,10,12,16,26,30,87,72,65,84 

,63 ,11 ,0,72 
260 DATA 79,87,63,11,0,83,79,82,82,89, 

11,0,0,0,0,0 
270 END © 
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BOGOCIT - A PROGRAM, TEXTBOOK, AND REVOLUTION! 

THE BUGOOT PROGRAM ■& the most powerful Z-80 MONITOR/ DISASSEMBLER/ DEBUGGER and GENERAL 
PURPOSE UTILITY PACKAGE available! BUGOUT is so versatile, beginners can learn Assembly Language programming in 
record time. BUGOUT is so powerful, experts will refuse to program without it! Here are only a few of BUGOUT'S 90 individual 

functions. 

• Interpretive Traces • High Speed Traces • Single Step in RAM • Base Program in 7K 

• Instant Breakpoints • ROM Analysis Routine • Single Step in ROM • Bugout Relocator + IK 
« Address Breakpoints • 1 Column Disassembly • Fast Patch Routine • Video Save/Recall + IK 

• Register Breakpoints • 2 Column Disassembly • System FMT Tape I/O • Extensive Memory Exam 

THE BUGOUT TEXTBOOK will answer questions other Assembly Language courses overlook, or cannot easily answer. 
There is no other course like it anywhere! The BUGOUT manual is written with the complete beginner in mind, yet provides 
interesting and valuable ideas for all programmers! Experts can easily skip what they already know and get down to important 
things.. ..like squashing bugs in record time! 

THE BUGOUT REVOLUTION, program and textbook combined, makes learning Assembly Language easy. New 
concepts are immediately brought to life on your video display! You can actually "see" how every machine code functions right 
before your eyes! You can enter BASIC language statements and single step trace them...all the way through the ROMS. You 
can link machine code routines to your BASIC programs more EASILY and EFFICIENTLY than you ever dreamed possible, and 
BUGOUT will remain a POWERFUL WORKING TOOL long after you've become an Assembly Language Expert! 

HONEST TO BUGOUT — We couldn't begin to tell you everything about BUGOUT on one page, so we prepared a 
special information package for your inspection. Better yet, order BUGOUT today while it is still introductory priced at $24.95. 
We think this package is worth considerably more, and anticipate a price adjustment in the future. Order today and 
save...money, of course, but more important, your valuable time. BUGOUT will pay for itself immediately by saving you countless 
hours learning, writing, and debugging your own Assembly Language programs!. 

RESERVE YOOR COPY NOW! BUGOOT BELONGS IN EVERY PROGRAM LIBRARY! 



BGQOOI SWEEPSTAKES 
Win $I 9 §§& Cwsh 

ENTRY DEADLINE - October 15, 1981 

DRAWING - October 31, 1981 

No purchase necessary to win. 
Complete details provided to every entrant. 

THE SOFTWARE PLANTATION, INC., 

P.O. Box 44623, Tacoma, WA 98444 
(206)531-1506 



SWEEPSTAKES ENTRY FORM 



Complete sweepstakes rules and procedures enclosed with 
BUGCXJT or BCIGOCIT INFORMATION PACKAGE. 

No purchase necessary. Void where prohibited by law. 
TO PURCHASE BUGOOT, complete and mail to: 

THE SOFTWARE PLANTATION, INC., 
P.O. Box 44623, Tacoma, WA 98444 

Check Money Order Master Card Visa 

Card No. . Expiration date 

Washington residents add 53% sales tax 

Please rush BUGOUT <*> $24.95 

Please rush BUGOUT INFORMATION 

Please enter my name for the drawing 

Name , . — — — 

Address . _ . — ; 

City State Zip 
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Here's the Software Secret Agent 
traveling around the country at the 
speed of light. No, you did not read it 
wrong, - the speed of light. At the 
Boston Computer Show I broke down 
and bought a modem for the lab at 
Software Secret Headquarters. I'd 
seen a demonstration of something 
called . CBBS, (Community Bulletin 
Board Service), accessable only by 
modem, which I was told was free. 

After the modem arrived and the 
RS232 was installed I was informed 
that a terminal program was required. 
So I called up Instant Software, which 
is just down the street, to see if they 
had one for sale. They did. Terminal 
80, as it is called, is Instant Software's 
entry into the semr-crowded smart 
terminal market. Checking in at an 
inexpensive $29.95, it filled the bill for 
a beginner on the wires. 

The first attempt at telecommunica- 
tions was an unqualified disaster. 
Absolutely nothing worked! We called 
CBBS Boston, which is one of the 
pioneer BBS's in the country, 
absolutely to no avail. In desperation, I 
called a local Tele-expert and 
explained my problems. 

When his fits of uncontrolled 
laughter subsided I was smugly told 
that pressing ENTER two or three 
times after the phone was in the 
modem would likely solve the 
problem. Smarting fromthe sting of an 
obvious solution to what seemed a 
hopeless situation, I returned to the 
modem. 




This time, after pressing ENTER the 
appropriate number of times, up 
popped the BBS. I signed on as 
Captain Eighty, which must have had 
the SYSOP, (the guy who operates the 
board), scratching his head. 
Immediately I started searching 
through the wonderland of messages, 
personal ariti public, which make up 
the bulk of the BBS. 

So far, Terminal 80 had done a swell 
job for me. It is, for the price, a good 
investment for the beginner. Then I 
tried dialing ABBS, Cincinnati: ABBS (I 
found out later) is short for APPLE 
Bulletin Board Service, which may 
account for the fact that as soon as I 
put the phone into the modem, the 
screen disintegrated into garbage and 
gave up the ghost. I was lost. 

CBBS Boston has a special feature 
which" lists the phone numbers of 
BBS's around the country. Forum 80, 1 
discovered, is a TRS-80 based BBS. 
Plus, there are very many of them 
around. So for a while, I was content 
with an occasional foray onto a new 
CBBS or Forum 80. 

Enter OMNITERM. This new and 
relatively unadvertised smartterminal 
program was like a space ship is to a 
hay wagon when compared to 
Terminal 80, but at three times the 
retail price, it had better be. When 
confronted with the awesome 
complexity of Omniterm, I decided to 
break it down into manageable 
chunks. First, how did it work as a 
simple smart terminal? I tried it out on 



the Forum 80 in Nashua, New 
Hampshire, and it worked just fine. 
But when I tried ABBS Cincinnati, it 
fell apart, just as had Terminal 80. I 
was doing something wrong. 

A quick call to Dave Lindbergh, 
Omniterm's author, revealed the 
necessity of resetting some of the 
configurations of the RS232. This can 
be accomplished from the keyboard, in 
Omniterm, a feature which occupies 
only a small percentage of the on- 
screen menu. Back to the ABBS. 
BINGO! It worked like a charm. I was 
linked by computer/telephone to one 
of the best and friendliest computer 
retail centers I have ever encountered 
by phone or otherwise. 

The Cincinnati Computer Store, in 
the Princeton Mall Shopping Center, 
outside the Queen City, received a 
Software Secret Agent visit over 
Christmas, where I found their staff 
knowledgeable, courteous, and as 
enthusiastic about the TRS-80 as the 
Apple. They were incredibly well 
stocked and their store display area 
was the best design I've seen, 
pleasant and comfortable. I did not 
know they maintained a BBS, so I was 
surprised to find them the operators of 
a long sought and elusive contact. 

Since it is possible to access the 
printer from the on-board menu in 
Omniterm, I decided to switch to hard 
copy for this BBS contact. I listed out 
the messages and recorded the 
numbers for BBS's, and even left a 
missing person message concerning a 
certain disappeared Professor 
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Captain 80 



Megabyte, a subject which may be 
discussed in later columns. It was very 
satisfying to watch my computer 
humming along, doing exactly what it 
was designed to do. 

BBSing can be a very expensive 
hobby if the contact is long distance, 
as is everything from where I live. But 
the entertainment it generates and 
the friends you can make potentially 
outweigh the expense. For example, 
by dialing (305) 862-691 7 evenings or 
weekends, you can receive from, or 
leave a message for Scott Adams, the 
Godfather of Adventure. A call to(31 3) 
465-9531, Mount Clemens, 
Michigan, you will get a Medical 
Forum 80 with messages of local 
interest, such as a printer for sale, or 
messages of a decidedly more 
national flavor such as Dave 
Goldman's warning about a Model II 
Scripsit bug. 

The number (303) 399-8858 is the 
home of Log/On Magazine, (now a 
newsletter, but we know how fast 
that can change). After 5 PM you will 
encounter, of course, the standard 
Forum 80. They have a lot of neat 
things planned for the near future. The 
magazine itself is about to be born, 
and will review BBS's and their 



features. Tele-computerists or 
interested parties can get more 
information about this specialty sheet 
by writing Log/On, 1405 Krameria 
Office 3C, Denver, CO 80220, or call 
the above number in the daytime. 

The number (313) 294-8248 is the 
home of Download 80, a BBS 
specializing in the tele-transfer of 
programs from the host computer to 
the user. This system must have a 
waiting list because in 32 tries over a 
three day period, I couldn't get past a 
busy signal. 

For those with unlimited budgets, 
there is a Forum 80 in Hull, England. 
You can dial it direct, 01 1-44-482- 
8591 69 if your pocketbook can stand 
the overseas call. It would be worth it 
in my opinion, just to log on and solicit 
a couple of Pen Pals. 

Another interesting BBS feature 
now coming into popularity, is the 
Computer Shopper, or spending 
money over the keyboard. Forum 80 
headquarters has a good selection of 
modems for sale, as well as a wide 
selection of tele-communications 
accessories and Smart Terminal 
programs, (no Terminal 80 or 
Omniterm yet). Just give the computer 



your charge card number and poof! 
UPS delivers your purchase. 

This same BBS, which promoted its 
own wares, gave equal time to the 
promotion of a nearby store. The 
Software Shack, Belton, Missouri also 
had nn on-line catalog, with such 
goodies as Duel-N-Droids (by Leo 
Christopherson and produced by 
Acorn Software), Hayden's Sargon II 
and Adventure International's Lunar 
Lander. I have no doubt that it is a well 
stocked store. 

This is a surface scratch of the 
incredible world of lightspeed travel. 
You don't have to be a Software Secret 
Agent to do it either. Simply get a good 
modem, a good smart terminal 
program, an RS232 in your expansion 
interface and. ...chances are, there is 
at least one BBS somewhere very 
close to you, or very far away and as 
close as your phone. 



Here's the Software Secret Agent, 
at the pawn shop, pawning his watch 
that squirts tear gas, belt that turns 
into a chain link fence, and other 
Secret Agent goodies. I owe the phone 
company, and that's one foreign 
country nobody messes with! • 



SPACE INVADERS. A favorite game with a new challenge. Specify disc system or cassette. 
Software $19.95. With Amplifier-Speaker $34.95. 



BALCODE 80X 



BALCODE 80A 



THE BALCODE SYSTEM. Permits higher order programming using instructions similar to IBM 370 
BAL. Includes the finest text editor, floating point macro assembler, and DISC I/O. With Manual. 
Sample programs DEMO, RAMTST, PIC and SROOT. PLUS Macro Library for PASCAL structures 
and monthly Newsletter. $79.00. 

BALCODE 80C WORDPROCESSOR. The ultimate using imbedded format statements. DISC I/O. Hidden line 
numbers. Automatic capitals at head of sentences. Headers, Footers, Tabs, Paging, Multiple 
Copies, and any printer commands. Allows full capability of any printer. Reformater for CRT dis- 
play. $79.00 (COMPLETE WITH AUTOMATIC ERROR DETECTION.) 

BALCODE 80D WORDPROCESSOR. Maximum Simplicity. Quick and easy to use. DISC I/O. Hidden line 
numbers. Reformater for CRT display. Printing can be identical to CRT display. Left and Right 
Margins. Tabs and Any Spacing. Complete $34.95. 

CASSETTE I/O Also Included for All of Above. 



INCLUDE $3.00 FOR FLOPPY DISC AND MAILING. 
CHECK, MO, VISA, OR MASTERCHARGE. 



ALL BALCODE AND Z-80 ASSEMBLY LANGUAGE 
SOURCE CODE CAN ALSO BE PURCHASED AT 
NEGOTIATED PRICES. 



WRITE FOR INFORMATION TO: 



BALCODE SOFTWARE, INC. 
421 HUDSON ST., SUITE 302 
NEW YORK, N.Y. 10014 
(212) 924-2401 EVES. 
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Programs which rely heavily on 
animated graphics can be fascinating 
to run but terribly time consuming to 
write. Storing the graphics 
information can also use up large 
amounts of memory. To save memory 
Leo Christopherson's string packing 
technique, as described in the 
May/Jun 1979 issue of 80 U.S. 
Journal is used. This is a slow and 
tedious process. First the frame must 
be drawn on a video work sheet. A 
frame is the drawing you wish to place 
on the screen enclosed in an 
imaginary rectangle. Then the ASCII 
codes for each element of the frame 
must be determined. This information 
must be entered by hand into a DATA 
line to use Leo's string packing 
routine. This routine pokes the 
graphics data into a string variable 
that has been reserved for this 
purpose. Only after this is done for 
each line (the whole screen has 1 6 
text lines) of every frame can you get 
down to actually planning the 
animation. 

Many programs are thoroughly 
planned before they are written. But 
others evolve as theyare written. They 
start simply but as more features are 
added they grow in complexity. This 
sketch program falls into this 
category. 

The first program that was written 
to help in the development of graphics 
was a simple sketch program. 
Although it lets you see what the 
frame would look like before you 
spend time coding, this program didn't 
save any time. It did however serve as 
the foundation of Sketch and Pack. 

We want the computer to give us the 
ASCII codes for each frame so that we 
won't have to look them up on a chart. 
So it was decided to add this feature to 
the sketch program. At first this 
seemed easy enough. We could 



simply peek at the video display 
memory (addresses 15360-16383), 
and send that information to the 
printer. But we didn't want the whole 
screen peeked, just the addresses of 
the frame. So a method to define the 
perimeter of the frame was developed. 
This was done by the placing of corner 
markers. This worked out well, but if 
the TRS-80 could determine the ASCII 
codes, why not have it do the string 
packing while it was at it? This would 
free us to just be creative without 
worrying about how long it was going 
to take to code all those fantastic 
graphics. But could it be done? 

The first question was: Could a 
subscripted string variable be packed? 
Yes. Now the computer could control 
the packing of a series of string 
variables. If we plan ahead so we 
know the number and size of the 
variables that would be needed, we 
could add them to the program before 
it was run. The program would then 
pack them for us. Terrific, right? No, 
not quite.. 

We don't want to have to plan 
ahead. We want to just draw. Let the 
computer look at the drawing and tell 
us how many variables we need and 
how long they should be. The routine 
was worked out to do this, but there 
was another problem. After the 
computer gave us this information, we 
would have to break out of the 
program and add these variables to 
the program. But when this was 
done, our beautiful drawing would go 
scrolling off the screen. There was 
nothing left to pack! Some way of 
protecting the masterpiece was 
needed. The solution turned out to be 
simple. Just before leaving the 
program to add the needed variables 
the contents of the video memory 
were poked into protected high 



\ ?7)e {/)(>(, c Cofiucclictt/ 

memory. Then, after all the changes 
were made, the program was run 
again, and the video memory is 
restored. Ah, success! 

Using the Program 
To use this program you must first 
set memory size to 31740. You can 
then load Sketch & Pack. Run the 
program and you will be asked if you 
want to restore the screen from 
memory. Since you do not yet have 
anything stored in high memory, 
answer no. You will now see a small 
blinking cursor in the upper left hand 
corner. You control the cursor with the 
four arrow keys. You can draw a 
diagonal line by pressing two arrow 
keys together. While drawing, rest 
your right thumb on the "?" key. To 
erase or move the cursor without 
drawing just hold down the "?" key. 
Don't worry about drawing off the 
screen. You now have full wrap- 
around. 

Once your masterpiece is complete 
press ENTER and you will see a large 
blinking cursor in the upper left hand 
corner. This cursor is used to place the 
corner markers. It is also controlled by 
the arrow keys. WARNING: Do not 
move this large cursor over your 
drawing. It will erase it! When the 
cursor is in position to mark the first 
corner press the space bar, and an 
arrow will mark the spot.The corners 
must be marked in this order: 1 . 
Upper left, 2. Upper right, 3. Lower 
left and 4. Lower right. Limited 
checking is done to see if the markers 
are in the proper position. If you make 
a mistake just scatter the rest of the 
markers around the screen. You will 
get an error message and a new 
cursor in the upper left hand corner. 
Set the markers again. 

Once the corner markers are in 
place you will be given a choice. Press 
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(listing starts on page 49) 
(text continues on page 50 J 



fits, better service er Sower 




Company/Drive yodel 


Price 
1/ 


Flippy 


Formatted Diskette 
Storage Capacity 


100% 
Tested 


48 hr. 
Burn-In 


Warranty 


Trial 
Period 


Dbl-Density 


Sgl-Density 


40-TRACK DRIVES 




































AFD-100 ! 


$295 00 




180 Kbytes 


102 Kbytes 








yes 


AFD-100F' 


329 00 


yes 


360 Kbytes 


204 Kbytes 


yes 


yes 


yes 


yes 


MTI 


















TF-5 


359 00 


no 




? 


? 


? 


7 


no 


Midwest Comp & Per 


















MPI B-51 


321 00 


no 




102 Kbytes 


? 


? 


yes 


no 


Aerocomp 


















Mdl 40 1 


349 95 


yes 




"> 


yes 


? 


yes 


yes 


CPU Shop 


















CCI-100 


314 00 


no 


? 


102 Kbytes 


? 


7 


yes 


no 


AMI 


















40-track 


325 00 


no 


7 


? 


? 


7 


7 


no 


80-TRACK DRIVES 


















Access Unlimited 


















AFD-200 T 


429 95 


no 


368 Kbytes 


205 Kbytes 


yes 


yes 


yes 


yes 


AFD-200F' 


449 95 


yes 


736 Kbytes 


410 Kbytes 


yes 


yes 


yes 


yes 


MTI 


















TF-8 


639 00 


no 


? 


200 Kbytes 


? 


7 


7 


no 


Aerocomp 


















80-tk mdl 


459 95 


yes 


? 


? 


yes 


7 


yes 


yes 


CPU Shop 


















CCI-280 


429 00 


no 




204 Kbytes 


? 


7 


yes 


no 


AMI 


















I 80-track 


560 00 


no 




? 


? 


7 


7 


no 



As advertised in 80 Microcomputing Jan 



Use your brand new AFD drive system for up to 15 days. If you're not 
completely satisfied, pack it in the original shipping container and send it 
back to Access, We'll refund the price of the system (less shipping 
charges), no questions asked (No refund for misuse or improper 
handling.) 

Operating burn-in test — too 

Every drive that leaves Access is not only 100% electrically tested and 
double-checked for mechanical alignment, but it is also given a full 48- 
hour operating burn-in test You'll find a test list — checked and signed by 



Games. Business programs. System software. We sell many of 
the best TRS-80* Model I and Model III programs, and at com- 
petitive prices. Make Access Unlimited your one-stop shopping 
center for all of your TRS-80* software, hardware and accesso- 
ries. Save big! Call our toll-free order number, 1 -800-527-41 96f 
for free descriptive literature. 



USE YOUR CREDIT CARD AND SAVE! VISA AND 1 
.MASTER CARD CHARGES ARE NOT DEPOSITED UN- 
TIL THE DAY YOUR ORDER IS SHIPPED. CALL NOW* 
TOLL-FREE, 1 -800-527-41 96f. 



the DOUBLER™ 
Percom's new plug-in adapter for your Expansion 
Interface stores almost twice the data on a diskette 
track as a single-density system. You can store up to 
four times more data — depending on the type of 
drive — on one side of a diskette than you can store 
using a standard Model I mini-disk drive. Other 
features: Reads, writes and formats either single or 
if 5,-;? >■ double density minidiskettes • Runs TRSDOS*, 
NEWDOS+* Percom OS-80™ or other single-density software without 
changing either software or hardware. Switch to double-density when 
convenient. • Includes DBLDOS™, a TRSDOS* compatible double- 
density operating system <• Includes on card, high-performance data 
separator circuit. • Installs without rewiring or trace cutting. • Introductory 
price, including DBLDOS and format conversion utility, only $219.95. 
[> Permits Model III software to be read on Model I computers. <S 



one of our competent technicians — in the drive carton. If a drive has latent 
defects, the burn-in life test will weed them out. The drives we ship just 
keep on running. And running. And running. 

About our warranty 

Venus de Milo has about the right number of fingers to count our warranty 
returns. Nevertheless, your new drive system is covered by our compre- 
hensive 90-day limited warranty. The details are spelled out in the illus- 
trated users manual included with each AFD drive system. 

DATA SEPARATOR™ 
This PC board plug-in adapter for the TRS- 
80* virtually eliminates data read errors • 
(CRC error — Track locked out!) which f|§ ' 
occur on high-density inner disk tracks, ay- 
problem that has plagued TRS-80* sys- » !T> ^ 
terns. The Percom Data Separator™ is in- 
stalled in the Expansion Interface without modifying the host 
system. Caution: Opening the TRS-80* Expansion Interface may 
void the limited 90-day w arranty: $ 29.95 




Disk System Interconnecting Cables 

Improvement over RS cable design places drive 0, which includes the 
cable termination, at the end of the cable to eliminate the reflected noise 
of an unterminated cable. Better data integrity. Prices: 

Two-Drive Cable $24.95 

Four-Drive Cable 34.95 

Power Line Filter 

115/250 V, 50-400 Hz Instructions included for easy installation in stan- 
dard mini-box chassis. $19.95 
Minidiskettes (Double-Density rated) 

10 Disks in a convenient plastic organizer box $34.90 

Single Disk 3.49 

Disk Drive ID Tabs 

1 " x 1 Va" self-adhering plastic drive identification tabs. Compatible silver 
with engraved black drive number. Two tabs (Nos. 0, 1 ): $2.50; three tabs 
(Nos. 0, 1, 2); $3.25, four tabs (0, 1, 2, 3): $4 50. 



How to Ordw Order by calling Access Unlimited toll-free on 1 -800-527-41 96t. 

Mail orders also accepted Orders may be charged to a VISA or MasterCard account or paid by a 
cashier's check, certified check or money order We accept COD orders with 25% deposit Sorry, 
we cannot accept personal checks We pay shipping and insurance charges on orders over 
$1,000.00. Sdd approximate insurance and shipping charges for under $1,000 00 If in doubt 
about these charges, ask when you call in your order. Texas residents Include 5% sales tax. 
Minimum order $20 00 Allow 2 to 4 weeks for delivery fTexat residents call (214) 494-0208. 



315 N. Shiloh • Ste. 01 • Garland, TX 75042 

(214) 494-0206 



T trasfemak of Access Unlimited Company. 'RADIO 8HACK and TRS-S0 are trademarks of Tandy Corporation. ™trademark of Psrcom Data Company, Inc. ttwcterowk o> Appmt Coroontion. 
ALL PRICES AND SPECIFICATIONS SUBJECT TO CHANGE AND ALL OFFERS SUBJECT TO WITHDRAWAL WITHOUT NOTICE. 



High Quality, Commercial, 
and Economy Models 

Computer Consoles from $129' 
Printer Stands from $39 95 

Complete TRS-80 Business 
System, built-in 

Special Educator Series 







AVS is a manufacturer, dealer, and consultant who specializes in products for the TRS-80 
and their uses. You will note we do not handle multiple brands of each type of product. 
When we decide to handle a product, we try to analyze all the manufactures of that product- 
Then we select the manufacture we feel provides the greatest features, performance, and re- 
liability relative tc the cost and needs for the TRS-80. Though many times there may 
be more than one manufacture that meets our requirements, we prefer to only handle the 
one, and give our customers maximum support in the use of that product relative to the 
TRS-80. 

AVS Custom Computer Furniture: Home for the TRS-80 takes the orphan modules of the 
TRS-80 and turns them into one homogenious unit. Our economy, commercial, and high 
quality consoles all house the keyboard, interface, cassette, and monitor. In addition, we 
have a special series for the schools. Our lines consist of computer consoles, line printer 
stands, storage hutches, carrols, and booths. 

VISTA Disk Drives: The Vista drives are preferred by many system specialists, including 
ourselves, for their speed and reliability. They are available in both 40 and 77 tracks, pro- 
viding memory in excess of 197K per disk. In addition, a module is available that allows 
the TRS-80 to run the Vista drives at double density, thus, providing more than 394K of 
memory per disk. 

EXATRON Stringy Floppy: The stringy floppy is the ideal mass storage system for most 
home, school, and some small business systems, because of its simplicity of operation, high 
reliability, low cost, and speed. Unlike disk, it does not require the expansion interface nor 
the 1 1 K of computer memory, to perform its many similar functions. 

BASE II Line Printer: This printer performs many functions not even availabe in printers 
three times its price. Besides having a vertical density of 144 half dots to the inch, you can 
program your own character fonts. In addition, we have a special modification that allows 
the printer to run without an expansion interface. 

AVS Green Thing: Our green screen works on both models I and II of the TRS-80. It not 
only performs the same tasks, but costs one-half to one-third of its competition. 

Miscellaneous Accessories: For our customer convenience, we provide a series of AC outlet 
strips, line filters, and cooling fans. 



2485 AUTUMN VALE AVE, 
SAN JOSE, CA. 95132 
PH. 40® -946- 12&S 




1 S¥» 
Irive 



SvStl : 
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. 40 & 77 Track Units 
° 12 msec Access Time. 

• High Reliability, 

• Double Density 

• 394 K per Diskette. 




o o J';l fil-ilfrlSS $\ 



Access 15 x Cassette. 
Simplicity of Operation 
Direct Keyboard Cont. 
Uses only 1K Memory. 
60K per Waffer. 



list $249.50 



Tractor/Friction Feed. ~ 
5 Char actor Densities. 
Programable Aux. Fonts. 
2K Buffer 
72V x 99H Dot Res. 





Improved Contrast 
Reduces Eye Fatigue. 
Enhances Legibilty. 
Decreases Glare. 
System Looks Prof 



list $7.95 

/ Add J! 00 For shipping & handling, and Califa 



V roli don 1 1 add 693 



. AC 3 Wire, Multi-Outlets. 
• AC Line Filters 

• Cooling Fans 
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Circle 24 



(Listing for Sketch and Pack 
from text on page 46) 



cont'd 



CLS 



10 CLEAR 500:DEFINT A,B,C,D,E,M,N,S,X,Y: DEFSTR F,G: 
12 DIM E(63,12) 

15 INPUT "DO YOU WISH TO RESTORE THE SCREEN FROM MEMORY" ;V$ 

17 IF LEFT$(V$,1)<>"Y" AND LEFT$(V$,l)<>"r," THEN 15 

18 IF LEFT$(V$,1)="Y"THEN GOSUB 3000: GOTO 20 

19 CLS 

20 ADD VARIABLES ON LINES 30-500 
505 ON ERROR GOTO 680 

510 X=0: Y=0 

520 A=PEEK( 14400): B=PEEK( 14368) 
530 PRINT@7 68 , STRING$ ( 63,"-"); 

540 IF A=8 THEN Y=Y-1 ELSE IF A=40 THEN Y=Y-1 

IF A=72 THEN Y=Y-1 ; 



550 IF A=16 THEN Y=Y+1 
560 IF A=32 THEN X=X-1 



X=X-1 
X=X+1 
X=X-1 



Error routine which provides screen 
wrap arround. 



ELSE 

ELSE IF A=48 THEN Y=Y+1 
570 IF A=64 THEN X=X+1 ELSE IF A=80 THEN Y=Y+1 : X=X+1 
580 IF A=2 THEN CLS 
590 IF A=l THEN 740 
600 IF Y>35 THEN Y=0 
610 RESET (X,Y) 
620 FOR N=l TO 6: NEXT N 
630 SET(X,Y) 

640 FOR N=l TO 6: NEXT N 
650 IF B<>128 GOTO 520 
660 RESET(X,Y) 
670 GOTO 520 
680 IF X<0 THEN X=127: 
690 IF X>127 THEN X=0: 
700 IF Y<0 THEN Y=35 
710 IF Y>47 THEN Y=0 
720 0=0 

730 RESUME NEXT 
740 0=0: C=0 

750 A=PEEK( 14400): B=PEEK( 14368) 

760 IF A=8 THEN 0=0-64 

770 IF A=16 THEN 0=0+64 

780 IF A=32 THEN 0=0-1 

790 IF A=64 THEN 0=0+1 

800 IF A=2 THEN 10 

810 IF 0>704 THEN 0=0 

820 PRINT@0,CHR$(191); 

830 IF A=128 THEN PRINT@0 ,CHR$ (91 ) ; : GOTO 870 

840 FOR N=l TO 10: NEXT N 

850 PRINT@0,CHR$(128); 

860 GOTO 750 

870 A(C)=O+15360 

880 C=C+1 ; 0=0+1 

890 IF C=4 GOTO 910 

900 GOTO 850 

910 IF A(2)-A(0)=A(3)-A(1) AND A(1)-A(0)=A(3)-A(2) GOTO 930 
920 PRINT@960,"CORNER MARKERS INCORRECT 
GOTO 740 

930 IF A(0)+A(3)OA(1)+A(2) THEN 920 
940 L=A(1)-A(0): Ll=(A(2)-A(0))/64: R=0 



PRESS P FOR PACKING 



950 PRINT@832 

960 IF INKEY$="S' 
970 IF INKEY$="P* 
980 GOTO 960 

990 FOR Z=A(0) TO A(2) STEP 64 
1000 R=R+1: D=0 



PRESS S TO SET VARIA 



THEN 1130 
THEN 




Pocket Computer $199 





iim 




1 




§ 







Model III 16K 



These are just a few of our many 
fine offers — computers, periph- 
erals, modems, printers, disc 
drives and an unusual selection 
of package values. Call TOLL 
FREE today and check us out for 
price and warranty. 



Pure Raaio Shack equipment warranteed 
ai any Radio Shack store or dealer' Fac- 
tory warrantees on Apple and Atari equip- 
ment Other equipment carries manufac- 
turer's warranty or Computer Plus 180 
day extended warranty Combined war- 
rantees carry Computer Plus 1 80 day war- 
ranty or original manufacturer's warranty 
I 



DEALER INQUIRIES ARE INVITED 

Prices subject to change without notice. 

TRS-80 is a registered trademark of Tandy Corp. 




Write for your 
free catalog 
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Dept. A " 

245A Great Road 
Littleton, MA 01460 

(617) 486-3193 

Circle 25 





Graphics Applications 



"P" for packing or "S" to set the 
variables. Well, you can't pack 
variables you don't have, so press "S". 
The computer will then tell you how 
many variables you need and how 
long they must be. Press BREAK and 
add these variables to your program. 
Don't worry, your masterpiece will be 
safe. It is stored in high memory. 
Variables "F" and "G" have already 
been defined as string variables so you 
might as well use them. More can be 
added if needed. Now look at line 
1080. You will see the subscripted 
variable G(R) buried in there twice. If a 
different variable is used you must 
also replace G(R) with that new 
variable in this line. But since "G" is 
already there let's use it. Suppose the 
computer told you that you needed 
three variables, each of which should 
be 5 spaces long. On any line between 
20 and 500 you would add the 
following: 

30 G(1)=" 

40 G(2)=" 

50 G(3)=" 
The above three variables have 
been set equal to five spaces. When 
the proper variables have been added 
and line 1080 has been corrected to 
reflect the variable name used, type 
RUN. You will again be asked if you 
want to restore the screen. This time 
you do, so answer yes. 

You will find yourself back in the 
drawing mode. You can make some 
last minute changes or simply press 
ENTER and mark the corners again. 
You must mark the corners again 
because the computer lost these 
values when you added lines to the 
program. When finished you will 
again be given a choice. This time 
press "P" to pack the variables. You 
will see the ASCII codes as they are 
poked into the string variables. After 
the packing is complete, you will be 
back in the drawing mode. If you wish, 
you may now change your drawing 
and create another frame. Remember 
that the previous frame is always held 
in high memory until the next frame is 
stored. It can always be recalled by 
simply running the program and 
answering yes to the restore question. 
When you are finished creating all the 
graphics you will need for your 
program, break out of it. You can now 
DELETE all of the program except for 
your newly packed string variables. 
Now build your new program around 
them or merge them with an existing 
program. There you have it, an easy 
route to string packing and character 
string graphics. © 



1010 FOR S=Z TO Z+L 

1020 D=D+1 

1030 H=PEEK(S): IF H=32 OR H=91 THEN H=128 

1040 E(D,R)=H 

1050 NEXT S 

1060 G0SUB 1080 

1070 NEXT Z 

1075 GOTO 20 

1080 T=PEEK(VARPTR(G(R) )+2 )*256+PEEK(VARPTR(G(R) )+l ) 
1085 PRINT@832 , STRING$ (64 , 128 ) ; 
1090 FOR D=l TO L+l 

1095 PRINT0832 , "PACKING VARIABLE #";R,E(D,R); 
1100 POKE T+D-1,E(D,R) 
1110 NEXT D 
1120 RETURN 
1130 ME=31740: 

PRINT@896,"0K, WAIT JUST A MINUTE I'M WORKING"; 
1132 FOR X=15360 TO 16191 
1134 POKE ME ,PEEK(X) 
1136 ME=ME+1 
1138 NEXT X 
1140 CLS 

1150 PRINT"F0R THIS FRAME YOU WILL NEED" ;L1+1 ; " VARIABLES" 
1160 PRINT "EACH VARIABLE WILL REQUIRE "; L+l ; " SPACES" 
1170 PRINT "AFTER ADDING THE THESE VARIABLES AND INSERTING TH 
E VARIABLE" 

1175 PRINT "NAME IN LINE 1080 TYPE RUN TO RESTART" 

1180 'END 

3000 ME=31740 

3002 FOR X=15360 TO 16191 

3004 POKE X,PEEK(ME) 

3006 ME=ME+1 

3008 NEXT X 

3010 RETURN 



10-12 Initialization 

15-18 Lets you restore the video screen 

500 Sets up error trapping routine for the screen wrap 

around 

510 Returns cursor to home 

520 Looks at keyboard memory; "A" for arrow keys, 

CLEAR, and space bar. "B" for "?" key. 
540-670 Sketch routine 

680-730 Error routine for screen wrap around 

740-900 Routine for setting corner markers 

910-930 Checks for proper placement of corner markers 

940 Determines size of the frame 

950-980 INKEY$ routine which gives the choice. Packing 

or setting of variables 
990-1070 FOR NEXT loop that reads the frame's graphics 

data. Line 1 030 does the peeking and changes spaces 

(32) and the corner markers (91) into blanks (128). 

Line 1040 temporarily stores the graphics data in 

array E(D,R) 
1075 Return to drawing mode 

1080-1 120 String packing routine 

1 1 30-1 1 38 Stores the contents of the video display memory 

in protected high memory 
1 140-1 180 Prints the information needed to add the proper 

variable to the program 
3000-3010 Subroutine that restores the video display memory 
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FOR TRS-80* MODEL I USERS ONLY 



^^^^^^^^^^^^^^^^^^^^ 
^^^^^^^^^^ 



16 Times 

Normal Speed 




*TRS-80 is a trademark of Tandy Corp, 



• High speed load TRS-80* Level II cassettes 

• Input 15K byte Level II program In 15 seconds 

• Search BASIC or SYSTEM programs by name 



Unlike other high speed tape input de- 
vices, FASTLOAD uses standard format 
cassettes. Therefore, there is no need to 
re-record on other media. At 8000 baud, 
FASTLOAD is faster than disk for short 
programs. FASTLOAD reads tapes at the 
fast-forward speed of the CTR-41 cassette 
recorder. The recorder can also be used 
for CSAVE at the normal speed. 



FASTLOAD connects to the 40 pin I/O or 
to the Expansion box. The control program 
does not use computer memory because 
it is in a built-in PROM. Other valuable 
features are keyboard debounce program, 
automatic key repeat routine and key- 
beep via cassette speaker. Price is $188.00 
for FASTLOAD and $95.00 for the modi- 
fied CTR-41 recorder. 



Personal Micro Computers Inc. 



475 Ellis Street, Mountain View, CA 94043 



(415) 962-0220 

Circle 26 
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CP/M 
CP 
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v VI w M C VI 

ck/i c> fv c / n 

cvi vW* c / i 

' .VI CP/1 > C /I 



/M CP/M CP/M 
; /M CP/M CP/M 
J /M CP/M CP/M 
C /M CP/M CP/M 



CP/M CP M CP M CP M CP M CP/ M 
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Last year we took a look at CP/M for the Model I 
computer with the idea in mind that it was an 
alternate system for the serious user. Since it was 
first developed by Gary Kildall in the early 1970's, 
CP/M has grown from a relatively unnoticed 
operating system to one of today's most widely used 
systems for microcomputers. 

On the Model I however, we have a real problem 
with CP/M implementation due to the ever present 
ROM BASIC Interpreter. CP/M is designed to operate 
without the ROM and CP/M programs expect to find 
important references there. This leads to basic 
incompatability in the Model I CP/M and the 
"standard" implementation. 

The TRS-80 Model II system is constructed 
differently. With the Model II, we can load a standard 
CP/M system and execute nearly any CP/M program 
that comes on 8" disks. In the course of this 
evaluation, several commercially available programs 
were tried. They were not specifically for the Model II, 
yet they all worked satisfactorily. 

What is CP/M? 

Anyone who gets a Model II immediately gets a 
Tandy Radio Shack Disk Operating System (TRSDOS) 
with it. The only way to make the system do anything 
is to put the TRSDOS disk that came with the 
computer into the drive, turn the Model II on, and get 
to TRSDOS READY. If this is all you know about Disk 
Operating Systems, you are not alone. 

A DOS will handle all of the dirty details for us like 
keeping track of where our information and programs 
are stored, communicating with the various devices 
we are running with the computer, and making it 
possible for languages such as BASIC to do their 
work. In short, they are like a translator for us. We 
speak BASIC, but the computer only speaks in 
Machine Language. The DOS allows thetwo to talkto 
each other successfully. 

(OK ... some of you may thinkthat is oversimplified, 
but we don't need to make everyone into a Systems 
Programmer!) 

Like TRSDOS, CP/M provides an Environment that 
makes it easy to communicate with the computer. In 
this environment, we can use different high-level 
languages such as BASIC, PASCAL, FORTRAN, 
COBOL, C, FORTH and many others. We also get the 
advantage of a standardized system that lots of things 
will work with. 



Also, CP/M (like TRSDOS) provides us with a 
convenient set of Utilities to help us with our 
processing. These programs handle jobs like file 
copying, disk backup, system reconfiguration and 
much more. 

Because of its popularity, an amazing number of 
programs have been written to work with CP/M. 
Many of these will run on the TRS-80 Model II 
without change. This makes CP/M a serious 
contender for your use. But, when we start looking, 
we find that there is more than one CP/M for the 
Model II. Each has the same basic principles of 
operation, but each also has some unique features 
that the others do not have. 

You could probably go to Digital Research (the 
people who developed CP/M) to get a system. But to 
use it you would find that you have to do a lot of 
tailoring and a large amount of assembly language 
programming. If this isn't what you want, then you 
want one of the CP/M's we are covering here. 

Here, we will look at what CP/M includes as 
standard features and what the CP/M's advertised 
for the Model II have available. We will draw some 
comparisions and try to give you the information you 
need to help select a system for your own use. This 
information is based on CP/M systems obtained from 
each supplier during 1980. Revisions of the systems 
after September 1980 have not been taken into 
account. Further, pricing information quoted here 
may not be current at the time of publication. 

We contacted the four suppliers of CP/M for the 
TRS-80 (FMG Corp, Cybernetics, Lifeboat Associates 
and Pickles & Trout) and asked for the opportunity to 
evaluate their CP/M against the others. Three 
suppliers (Cybernetics, Lifeboat and Pickles & Trout) 
were not only cooperative, but actually seemed 
anxious to show us how good their systems were. 
One supplier (FMG Corp) promised a system, but it 
never materialized. For this reason, we will be 
covering only three systems for the remainder of this 
report, since we cannot evaluate an unseen system. 

Standard CP/M 
Standard CP/M has two general types of 
commands. The built-in commands and the 
Transient Commands. Built-in commands are part of 
the Console Command Processor (CCP). The 
standard commands are: 
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ERA - Erases files from a disk. 

DIR - Lists the files in the disk directory. 

REN - Renames files. 

SAVE - Saves memory to a file. 

TYPE - Types the contents of a file. 

The Transient Commands typically provided on 
CP/M are: 

STAT - Provides disk statistics on files, disk storage, 
and allows the user to alter input or output device 
assignments. 

ASM - The CP/M assembler to load the assembler 

and assemble a specified file. 

LOAD - Loads a file in HEX format and produces a 

machine executable form. 

DDT - The CP/M dynamic debugger. 

PIP - The peripheral interchange program which 

handles all types of file transfers. 

ED - The system text editor, normally used for writing 
programs. 

SYSGEN - Used to create new CP/M diskettes. 
SUBMIT - Submits a file of commands for BATCH 
processing (like the DO command in TRSDOS). 
DUMP - Dumps the contents of a file in HEX. 

MOVCPM - Regenerates CP/M for a particular 
memory size. 

TRS-80 Model II CP/M's 

We were impressed by the quality of the CP/M 

systems. Each system provided the standard 

commands, and a bit more. 
CP/M has a standard set of manuals (a must for 

CP/M users) which apply to all systems. These 

manuals will never win prizes for training material. 

They are clear if you have some experience, but the 



average beginner is liable to get lost. Beyond the 
regular manuals, the documentation provided by 
each supplier varied. Cybernetics had a few pages, 
Lifeboat had 28 pages and Pickles & Trout had a 1 42 
page manual. 

Cybernetics produces a "standard" CP/M package 
with some enhancements. It is fast and impressive, 
but adds only a few utilities: 
FORMAT - For disk formatting. 
SET - Set Input/Output characteristics. 
RX - File receive utility. 
TX - File transfer utility. 
BACKUP - For disk backups. 

This caused no difficulty in working with the 
system, but some of the utilities provided by the other 
systems were very helpful. Cybernetics big selling 
point is that they also have a large number of 
programs for CP/M which they can provide, 
including some special purpose programs such as 
their Automated Patient History for Doctors (which 
we haven't seen advertised elsewhere). 

Lifeboat's CP/M added some newfiles and utilities 
to their distribution diskette. There were: 
TOF - Top of form utility for printing. 

FORMAT - Formats a diskette for single or double 
density. 

COPY - Copies from one diskette to another. This is a 
full diskette copy function like a BACKUP. 
FILECOPY - Transfers files from one disk to another 
on a single drive system. 

SAVEUSER - Saves a modified system to disk without 
having to go through SYSGEN. Saves the complete 
BIOS portion of the system, allowing drivers to be 
modified with DDT. 

CONFIG - A menu driven program that allows the 
user to display his system configuration and modify 
things like serial port parameters, disk seek rates, 
parallel printer formats, etc. 
MEMR - A memory test routine for your system. 
ONEDRIVE - Used to simulate a multiple drive system 
on a one drive system so the distribution disk can be 
backed up. 

The Pickles & Trout (P&T) CP/M also includes a 
number of new utilities: 

RESIZER - Creates a P&T CP/M system for a 
particular memory size. 

FORMAT - Formats single and double density 
diskettes. 

DDCHECK - Non-destructive double density disk 
check. 

DDTEST - Tests double density diskettes. 

SDTEST - Tests single density diskettes. 

SETUP - Allows the user to set up Input/Output 

assignments and serial ports. 

FASTCOPY - A fast copy routine for BACKUP. 

IOFREEZE - Displays Input/Output parameters and 

allows them to be permanently set. 



While we were testing CP/M, the FILETRAN utility 
for CP/M from Business Microproducts (1838 
Catalina Court, Livermore, CA 34550) also arrived for 
review. This is another TRSDOS to CP/M transfer 
program which allows the user to move over to CP/M 
if it appears that he needs to. FILETRAN worked fast 
and reliably during testing. 

FILETRAN has some special abilities which make it 
a perfect addition to many of the CP/M systems. The 
Model I version will transfer files both ways (CP/M to 
TRSDOS and TRSDOS to CP/M). Business 
Microproducts has indicated they might extend the 
Model II FILETRAN to include this capability. 

In addition to the ability to transfer files, FILETRAN 
also allows you to display memory and disk sectors 
(CP/M or TRSDOS format). This can be very useful 
for checking on problems in transfer, or even for just 
looking at a storage format on the disk when you are 
not transferring files. 

FILETRAN also has a utility built in that allows you 
to scan files for ASCII strings or for differences 
between the file and the proper syntax for Microsoft 
BASIC 5.0 as it has been released for CP/M. 
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TIME - Displays the system time. 

SETTIME •• Sets the system time. 

SETMISC - Sets various system parameters. 

TRS2CPM - Transfers a file from TRSDOS format 

diskettes to CP/M diskettes. 

DENSITY - Tests the density of a diskette. 

Evaluation 

Tests of the three versions of CP/M preceeded 
tests of the software listed in Table 2. All of the 
programs performed without difficulty on each CP/M 

system. 

Attempts to transfer programs from one system 
disk to another met with limited success. Itturned out 
to be necessary to copy files to be transfered onto a 
disk with no CP/M system to prevent disk errors. 
Digital Research was contacted by telephone, but 
could not explain why that should happen. However, 
it was later found by talking to others that it comes 
from a disagreement as to how certain areas of the 
system disk should be handled. It turned out to be a 
minor problem, yet still somewhat disturbing. 

The Pickles & Trout TRSDOS to CP/ M conversion 
utility was especially pleasing. With this utility, one is 
able to transfer both programs and data to CP/M files 
and then execute the programs under Microsoft 
BASIC in CP/M. More important to many users, the 
possibility of converting files to CP/M without losing 
your data means that it is not necessary to stay with 
TRSDOS if the system you want is available only on 
CP/M. 

One major prooiem wnich occured with CP/M 
turned out to be due to the way the Line Printer III 
works. It seems that this printer is set with a line feed 
that most of the CP/M's do not expect. This results in 
much double spaced copy, unless the printer port is 
set to handle it or an internal switch setting in the 
Line Printer III is changed. This is all well and good, 
except that when the printer port is set up to reject 
extra line feeds, it also rejects line spacing 
information from text editors when you try to double 
or triple space. 

Overall, I like CP/M, and would recommend any of 
the three we tested The big deciding factor for most 
people will not be what is in CP/M: They are all the 
same. Rather, it will be a combination of price and the 
additional utilities that will be the deciding factor 
Table 3 gives the addresses and the price information 
as of February 1 981 . 

How does it compare to TRSDOS? 

For many of you the big holdup in using CP/M will 
probably be: 1 ) you already have a DOS, 2) it will cost 
extra money to get CP/M, or 3) you are not sure you 
can really handle the new DOS. 

On the first two points, you will have to wrestle 
with yourself. The last is easily covered by comparing 

CP/M with TRSDOS 

Some of the really impressive features of CP/M are 
tied with its speed. When you first boot up a 



TABLE 1 



Comparison of TRSDOS and CP/M 



TRSDOS 


Cybernetics 


Lifeboat 


P & T 


AGAIN 


* * * 


* * # 


#*■* 


ANALYZE 


STAT 


STAT 


STAT 


APPEND 


PIP 


PIP 


PIP 


ATTRIB 


STAT 


STAT 


STAT 


AUTO 


*** 




-**# 


BUILD 


ED 


ED 


ED 


CLEAR 




* * * 




CLOCK 


* * * 


*** 


* * # 


CLS 


*** 


*** 


* ** 


COPY 


PIP 


PIP/COPY 


PIP 


CREATE 


*** 


*** 


** * 


DATE 


* * * 


*** 


* * * 


DEBUG 


DDT 


DDT 


DDT 


DIR 


DIR 


DIR 


DIR 


DO 


SUBMIT 


SUBMIT 


SUBMIT 


DUAL 


(CTRL-P) 


(CTRL-P) 


(CTRL-P) 


DUMP 


SAVE 


SAVE 


SAVE 


ECHO 


(CTRL-P) 


(CTRL-P) 


(CTRL-P) 


ERROR 


* * * 


* # * 


*** 


FORMS 


SET 


CONFIG 


SETMISC 


FREE 


STAT 


STAT 


STAT 


HELP 


* * * 


■*** 


* ** 


HOST 




* * # 


*## 


I 


(CTRL-C) 


(CTRL-C) 


(CTRL-C) 


KILL 


ERA 


ERA 


ERA 


LIB 


**# 


#*# 


* * * 


LIST 


TYPE/DUMP 


TYPE/DUMP 


TYPE/DUMP 


LOAD 


* # ♦ 


*** 


* * * 


MOVE 


PIP 


PIP 


PIP 


PAUSE 


* * * 


* * * 




PRINT 


TYPE/PIP 


TYPE/PIP 


TYPE/PIP 


PROT 


STAT 


STAT 


STAT 


PURGE 


ERA 


ERA 


ERA 


RECEIVE 


PIP 


PIP 


PIP 


RENAME 


REN 


REN 


REN 


RESET 


(CTRL-C) 


(CTRL-C) 


(CTRL-C) 


SCREEN 


*** 


* * * 


* * * 


SETCOM 


SET 


CONFIG 


SETUP 


SPOOL 


*#* 


* * * 


**# 


STATUS 


STAT 


STAT 


STAT 


TIME 


* * » 


*** 


TIME 


VERIFY 


# * * 


* * # 


*** 



NOTE: 

1 . CP/M commands are often multi- 
purpose and very flexible so they often 
appear in more than one place. 

2. This table was produced by simply listing 
the closest commands, transient or built- 
in, that could perform the task done by the 
TRSDOS command. 

3. This table is based on the capabilities of 
the TRSDOS 2.0. 
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Apparat, Inc announces the most powerful 
Disk Operaion System for the TRS-80. it 
has been designed for the sophisticated 
user and professional programmer who 
demands the ultimate in disk operation 
systems. 

This new member to the Apparat 
NEWDOS' family is upward compatible 
with present NEWDOS 2.1 and is supplied 
on Diskette, complete with enhanced 
NEWDOS + utility programs and 
documentation. Some of the NEWDOS/80 
features are: 

• New BASIC commands that support files 
with variable record lengths up to 4095 
Bytes long. 

• Mix or match disk drives. Supports any 
track count from 1 8 to 80. Use 35, 40. or 77 
track 5" mini disk drives or 8" disk drives 
any combination. 

• Upward compatible with NEWDOS ? 1 
and TRSDOS 2.3. 



• A security boot-up for BASIC or machine 
code application programs. User never 
sees "DOS READY" or "> READY" and is 
unable to "BREAK", clear screen or issue 
any direct BASIC statement including 
"LIST". 

• New editing commands that allow 
program lines to be deleted from one 
location and moved to another or to allow 
the duplication of a program line with the 
deletion of the original. 

• Enhanced and improved RENUMBERED 
that allows relocation of subroutines. 

• Powerful chaining commands. 

• Print Spooler. 

• DGF function; simultaneous striking of 
the D, F, and G keys will allow the user to 
enter a mini-DOS to perform some DOS 
commands without disturbing the resident 
program, (e.g. dir while in scripsit ) 

• Includes machine language 
Superzap/80 and all Apparat 2.1 utilties. 



• Enter debug any time by pressing 1 23 
keys. Also allow disk I/O. 

• Diskette "Purge" commands. 

• Specifiable system options (limited 
sysgen type commands). 

• Increased directory capacity. 

• Most software operating under 
NEWDOS will run on Model III. 

NEWDOS/80 with all of the NEWDOS+ 
utility programs, many of which have been 
enhanced, is priced at just $149.00 and is 
available at most TRS-80 dealers. 

NEWDOS/80 relies on the TRSDOS and 
Disk Basic Reference Manual published by 
Radio Shack. 



NEWDOS/80 documentation supports 
its enhancements and upgrades only. 




TO PURCHASE NEWDOS/80, COMPLETE AND MAIL TO: 
Apparat, Inc. call today 

4401 S. Tamarac Parkway Order Desk 1 -800-525-7674 (Except CO, AK & HI) 

Customer Service 1-303-741-1778 



Denver, CO 80237 



□ Money Order □ Master Charge □ Visa 
Expiration Date-. 



□ Check 

Card No 

Colo residents add 6.5% sales tax 

Outside Continental U S residents add $10 for Postage & Handling 

□ : Model I □ Model III 

Please rush NEWDOS/80 @ $149 each to: 

Name 



Address 

City 

Phone 



State . 



Zip. 
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CP/M system on the Model II there is no messing 
around with memory or special checks and protection 
setups. The system comes right up to CP/M in a very 
few seconds. It happens so fast you are not sure at 
first that it is done. 

Once you are in CP/M, it is even more delightful 
since the first thing that does not happen is the error 
because you forgot to push the CAPs key!. CP/M is 
prepared to accept either upper or lower case letters 
for its commands. 

Now comes CP/M's speed advantage in everything 
else. Format a disk with one of the utilities, and it 
steps through the tracks so fast you are not expecting 
it to be done. Want a system disk? You can dump a 
tailored system to a disk in seconds. Then you use 
PIP, the general file transfer program to add whatever 
else you want to the disk. 

Do you need to do a large number of file transfers? 
CP/M's PIP utility outdoes even TRSDOS 2.0's ability 
to use wildcardsfortransfer. A wildcard allows you to 
specify a group of files with some common feature. 
For example, PIP A:=B:*.ASM, will copy all files on 
drive B with the extension ASM onto drive A. (Unlike 
TRSDOS and others, CP/M names the drives A,B,C, 
etc). We can also get single letter matches such as, 
PIP A:=B:FILE?.ASM, to transfer all files with the first 
four letters of the name "FILE" and a fifth letter of any 
character and an extension of ASM to disk A from 
disk B. 

TRSDOS 2.0 has a limited wildcard facility. 
However, the trend from the early TRSDOS's seems 
to indicate they are including more CP/M-like 
abilities. 

CP/M does have some differences that can be 
frustrating if you are used to working with TRSDOS. 
First, CP/M will not automatically search for a file if it 



is not found on the system disk. You have to specify 
which disk the file is on or it will not find it. 

The only case where you don't tell the system what 
disk to look on is when you want to find a file on the 
currently logged-in disk. All commandsare about this 
disk unless you tell the system to go to another disk 
for the file. This disk doesn't even have to be a system 
disk and it does not have to be in drive 0. If you are 
used to working with TRSDOS, this could be 
somewhat confusing. 

If you are converting from TRSDOS, the 
terminology is confusing and the manuals are not 
clear. The best way around this this the new CP/M 
Handbook, by Rodney Zaks (see inset). Without some 
such help, you may find it hard to pick up the threads 
of CP/M. 

CP/M tends to be more of a programmer's system. 
All of the capabilities are there and pretty well 
documented if you like fooling around with operating 
systems. The beginner or non-programmer can be 
lost very quickly. However, if you have a good 
programmer putting a package together for you, he 
can do a lot with CP/M very easily and tailor a very 
special system to your needs so that you never see 
anything but your particular application. 

Should you get CP/M? 

It depends - where the software you want to use 
isn't available for TRSDOS, do not be afraid to get it 
on CP/M. It is every bit as good an operating system 
as TRSDOS. However, don't believe the "true 
believers", who preach that either 1 ) TRSDOS is so 
full of holes that it is worthless, or 2) CP/M isan OLD 
system that is outdated. Neither is the case. 

TRSDOS is improving steadily. Holes that we saw 
earlier are getting fixed, slowly but perceptibly. On 
the other hand, CP/M has been around for a while 



The CP/M Handbook 
by Rodnay Zaks 
SYBEX 

Rodnay Zaks is widely known for his 
how-to books in the microprocessor field. 
CP/M Handbook is another book in his 
successful series. 

The CP/M operating system is a popular, 
versatile operating system. However, 
documentation for the system has always 
tended to be difficult for the beginning 
programmer to read. Digital Research 
provides a good set of manuals, but they 
leave many questions unanswered. Pickles 
& Trout provides the best supplementary 
documentation which goes far beyond 
Digital Research manuals, but even this 
leaves unanswered questions. 

Zaks' CP/M Handbook is the most 
complete and readable introduction to the 
CP/M language available. It covers CP/M 
(Control Program for Microprocessors) 
through version 2.2 and MP/M 
(Multiprogramming Control Program for 



Microprocessors) through version 1 .0 The 
eight chapters are: 

1. Introduction to CP/M and MP/M 

2. CP/M and MP/M Facilities 

3. Handling files with PIP 

4. Using the Editor 

5. Inside CP/M (and MP/M) 

6. Reference guide to CP/M and MP/M 
Commands and Programs 

7 Practical Hints 
8, The future 

Also included are 15 appendices 
covering a variety of material such as 
keywords, devices, error messages and 
others 

Upon getting the book from a local 
computer store, I rapidly read the book from 
cover to cover. Then I read it again and 
again. It is now one of the most browbeaten 
books in my library, heavily annotated, 
highlighted, and gets a lot of use when 

programming with the CP/M operating 
system. 

It contains many useful tidbits. I admit 
that each thing I thoughtwas newwasalso 



in the Digital Research manuals. However, 
Zaks' book is much easier to read. 

While I cannot vouch for the accuracy of 
the MP/M material (I don't work with 
MP/M), I can say that I found nothing in 
error with the CP/M material other than a 
couple of typos in the text. 

It is important to make clear that this 
book deals with several versions of CP/M. 
So everything it says may not apply to any 
particular system. In addition, for the 
TRS80, most of the available CP/M 
systems are "enhanced" or modified in 
some way by the people who adapted them 
to the TRS-80. So even here, you may find 
some differences from the text. 

Everything considered though, the book 
is invaluable and is recommended to 
anyone who seriously is interested in 
working with CP/M. Even old hands with 
CP/M will probably find some interesting 
ideas in it. 

The CP/M Handbook is available from 
SYBEX, 2344 Sixth Street, Berkeley, CA 
94710 for $13.95 
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MODEL II 




26-4002 

64K 1 Driwe 
$3440.00 

26-4160 1 Drive Exp $1034.00 

26-4161 2 Drive Exp 1574.00 

26-4162 3 Drive Exp 21 14.00 

26-4530 Scripsit II 265.00 

26-4512 Profile II 162.00 

26-4511 Visicalc II 265.00 

26-4501 Gen Ledger 180.00 

26-4506 Mail List 72.00 




Fast 100 CPS Centronics 

730-1 A Printer $577.00 

Text Quality Centronics 

737-1 Printer $737.00 



MODEL III 




DEALER A301 



fv?\ fa h p R3 




U 

m M 



26-1061 4K I 

26-1062 16K III 

26-1063 32K III 
W/2 Drives, RS232. 



$629.00 
. 865.00 



2225.00 



yj.:4 bp 





COLOR 



We carry the full line of TRS-80 Computers. All 
other R.S. software, furniture, and accessories 
at discount from catalog price. We stock most 
items to assure you fast delivery and save you 
money. 

26-1140 Expansion Interface $249.00 

26-1141 16K Exp. Interface 359.00 

26-1142 32K Exp. INterface 469.00 

26-1145 RS232C Board 8 4.00 

26-1160/1 Mini Disk Drive 419.00 

26-1563 Scripsit-Disk 79.00 

26-1566 Visicalc 83.00 

***** * PRINTERS* ***** 

26-1 155 Quick Printer 187.00 

26-1167 9'/ 2 Dot Matrix Printer 360.00 

26-1 166 Line Printer VI 1080.00 

26-1 158 Daisy Wheel II 1799.00 

26-1 165 Line Printer V 1710.00 




26-3001 4K $353.00 

26-3002 16K Ext. Basic 533.00 

26-3008 Joysticks 22.50 

26-3010 Color Video .353.00 

26-1206 Recorder 54.00 




Pocket Computer 




.V^J.^JiAi UJUSJISU W^toiS&if.jMM »« asm mm rim 



26-3501 1.9K P.C $221.00 

26-3503 Cassette IF 45.00 

14-812 Recorder 72.00 



AUTHORIZED DEALER 
CALL FOR PRICES 

ALL POCKET AND COLOR 
COMPUTER SOFTWARE 
SOLD AT DISCOUNT 

WRITE US FOR A 




No Taxes on Out Of 
State Shipments 



DOWNTOWN PLAZA SHOPPING CENTER 



immediate Shipment 
From Stock on Most Items 



115 C. SECOND AVE. S.W. 
CAIRO, GEORGIA 31728 

(912) 377-7120 Go. Phone No. & Export 

TRS-80 is a registered trademark of the Tandy Corp. 



R.S. 90 Day Limited Warranty 
F-48 Form Provided 

Largest Inventory 
In The S.E. U.S.A. 



Circle 29 
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and this is one of its major strengths! CP/M just 
doesn't go around making mistakes on where it put 
your information because errors have been found 
and corrected years ago. 

CP/M is not static either. Digital Research is 
constantly improving and correcting CP/M and its 
utilities. They are developing new and better 
software for use on CP/M. In fact, they just 
announced a new PL/I language compiler to run with 
CP/M. 

CP/M has another major strength. That is the 
number of people who use it and the number of 
systems on which it runs. It has been around long 
enough so that practically any application is available 
somewhere on it. There are also more and better 
languages available for CP/M than for TRSDOS. 

Do you want to program in the C programming 
language, or FORTH on the Model II, or any one of a 
dozen special purpose languages? Do you want 
everything to read the same files on your disk? If so, 
then CP/M could be for you. For programmers, there 
is an additional advantage. Working in CP/M instead 
of TRSDOS opens your potential market. Since many 
computers run CP/M, and the Model II runs a 
"standard" CP/M, you can take your expertise to 
other computers as well. 

As with so many other things, the advantages and 
disadvantages of CP/M are fluid: they don't give you 
a clear cut answer to the question, "Should I choose 
CP/M?" In any case, be sure to consider it before you 
decide to develop a new "wheel" that may already be 
running under CP/M. 

Which CP/M should you choose? 

In the preparation of this article, I questioned a 
number of suppliers of CP/M software and asked 
which one they would recommend for running their 
software on the TRS-80. About 50% indicated they 
were not personally familiar with TRS-80 Model II, 
and could not make an intelligent recommendation. 
Of the remaining half, about 70% said they would 
recommend Pickles & Trout. One company 
recommended Lifeboat Associates, the others had no 
opinion. 

This was not a careful survey of opinions, just a 
shot in the dark approach as I asked about software 
compatibility for the Model II. Don't take these as 
hard recommendations for one system over another. 
There are hundreds of CP/M software dealers out 
there and I hit only a few. 

Summary 

In the final analysis, we can safely say that with the 
introduction of the TRS-80 Model II, CP/M really 
becomes a viable alternative for software 
development. 

Despite the argument that goes on about which is 
better, the only real deciding factor between TRSDOS 
and CP/M is which has the programs you need to 



run. If you want PASCAL, CP/M has it, TRSDOS does 
not (as of this writing). If you want Automated Patient 
History, there is one through Cybernetics CP/M, I 
don't know of one for TRSDOS. 

As to which of the three CP/M's is better, well 
there isn't one that is better as a CP/M, the Pickles & 
Trout version is enhanced the most, both inside the 
operating system and in the utilities. It seems to be 
preferred among the CP/M software suppliers who 
know the Model II. However, I would not hesitate to 
recommend any of the systems we tested. 

It's up to you. Consider it seriously, Don't ignore its 
existence. But in the end, choose the system you 
need. It very well mightturn out to be TRS-80 Model II 
CP/M. o 



Table 2 

CP/M Software Tested with TRS-80 Model II 
CP/M Systems 
Stackworks FORTH 
VEDIT Text Editor 
Nevada COBOL 
Microsoft COBOL 
PASCAL/ MT+ 
Microsoft FORTRAN 
Microsoft BASIC 
CBASIC 
Microsoft BASIC Compiler 
FILETRAN 
Code Works Small C 
Microdata Membership Billing 
Microsoft MAC80 Assembler 
And various programs written in the languages 
above by the author. 

Note: 

A number of these systems are presently under 
review for publication in the Journal later this year. 
We are not covering their capabilities in this article 
for that reason. 



VI 



Table 3 

irdering 



nformation 



Cybernetics 
Newman Ave., Suite 208 
untington Beach, CA 92647 
Price: $250.00 

Lifeboat Associates 
1651 Third Avenue 
New York, NY 10028 
Price: $170.00 

Pickles & Trout 
P.O. Box 1206 
Goleta, CA 931 16 
Price: $185.00 
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# In a desperate race against the sun you search for SMAEGOR Monarch of Dragonfoik, who lias 
kidnapped the Princess of the Realm and holds her in a distant and unknown place. In a quest for 
Honor and glory, you must search the land, seeking out the tools needed for the ultimate 
confrontation. On The River Delta, in the abandoned Temple of Baathteski, Goddess of the 
Blade, everywhere, clues abound. But WHERE is the Princess? 

Now, as never before, the genius of CHARLES FORSYTHE shines in this new machine 
language ADVENTURE. DRAGON QUEST! Can YOU save M'lady from the iron clutches of 
SMAEGOR? 

TAPE $15.95 Dealer Inquiries Invited DISK $2 S .95 

THE PROGRAMMER 'S GUILD 

BOX 66, PETERBOROUGH, N.H. 03458 

(603) 924-6065 AFTER 6 PM EST 

MASTERCHARGE AND VISA ACCEPTED 
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Model I, !!, and III Disk Systems 



T R Dettmann 



Last issue, we covered the basics of 
Random Access file structure. The Basic 
access techniques are actually very simple. 
After you have opened a file for Random 
Access, you must create a FIELD statement 
to describe how the data will be put into the 
file. Then you LSET or RSET data into the 
FIELD and PUT the information into the file 
on the disk. 

To get information out of the file, you 
simply GET the information from the file 
and then set your program variables equal 
to the appropriate fields (with conversion if 
they are numbers). 

Sounds simple, yet there are many 
details to worry about and a lot of problems 
that you can get into if you do not take a 
little care. Look at the last issue's article for 
a more detailed description of the 
individual commands , or look over your 
DOS Basic manual. This issue, we are 
going to extend our ability by using Random 
Access files. 

Where is it? 
Random Access files present us with 
much power, but require ustodoa lotmore 
work than with sequential files. With a 
Random file, we can get at any piece of 
information in the file without delay - 
without searching. All we need to know is 
the record number for the information, that 
is, what was the number we used to put the 
information into the file? 



The unfortunate problem for many 
applications is that the information we 
want to file has no natural ordering 
number. For example, let's say we are 
storing a list of our record collection in a 
random access file. We could assign a 
number to each record and store the 
information about the record by the record 
number. That's ok, but it has some 
problems: (1 ) The numbers have no natural 
relation to records. The numbering is 
imposed; (2) the information we want 
about the records has no relation to the 
numbers unless we also impose a 
numbering system; (3) we will still have to 
add some kind of system to handle things 
like alphabetical searches or category 
searches. 

We might go on, but the primary problem 
should be clear, for many situations the 
record numbers don't bear a direct relation 
to the problem unless we impose a relation. 
This isn't necessarily bad, but is usually 
over-used. 

Problems do exist where such an 
externally imposed relation is useful. For 
example, in an inventory with part 
numbers from 1 to 1000, we might simply 
assign space on a data disk so that each 
part number corresponds to the record 
number exactly. This is a very simple 
minded solution to a very tricky problem. 
The advantages are: (1 ) It is very simple to 
program; (2) it doesn't involve much special 



programming to make it work; (3) there is 
no translation to make between part and 
record number; and, (4) it is very fast. 

The disadvantages are: (1 ) Part numbers 
not being used are just empty space on the 
disk; (2) part numbers must be forced into 
correspondence with the record numbers; 
(3) the largest part number is set by the 
maximum size of the disk file; and, (4) the 
information on a single part might not 
correspond to the size of one record. 

If the problem is best solved without 
special tricks or programming techniques, 
then by all means try the simplest way. If 
some of the disadvantages are important it 
may be necessary to improve your 
programming skill to accomodate the 
requirements of your application. 

Physical and Logical Records 

In some Disk Operating Systems (DOS), 
it is possible to build Random Access files 
with a record length (number of bytes of 
disk space) of exactly the size needed fo"r 
your problem. Model II and III TRSDOS can 
do this as can VTOS 4.0, NEWDOS and 
others for the Model I. 

In the systems where you can specify the 
record length for a file, you can easily make 
your record length correspond to the 
amount of information you want to store for 
an item. The standard form for opening a 
file with a specified record length 
is: OPEN"X",N, "filename", L where 
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Tutorial 



X is "R" or "D" depending on the system 
(check your manual); N is the file number 
and L is the record length. 

If you have this kind of a DOS, you don't 
really need what follows, but read on 
anyway. 

If you have a more limited system (earlier 
TRSDOS for the Model I for example), you 
can't define random access record lengths. 
Every record on the disk is 255 bytes (or 
256, depending on the DOS). 

The record that is actually stored on disk 
is called the physical record and it's length 
is the physical record length (PRL). If we are 
limited to 255 bytes, or any other length for 
that matter, but the items we want to store 
are shorter, then we say the item's logical 
record length (LRL) is shorter. 

In fact, if the LRL is short enough, we can 
fit more than one into a PRL, and fool the 
system by handling the logical records as 
items and packing them into physical 
records. 

Let's see how we can do this with an 
example. Assume we have an inventory 
with the parameters given in Figure 1 . Each 
logical record is 38 bytes long. If we leave 
space for future expansion and assign each 
logical record 51 bytes of space, then we 
can pack five logical records into one 
physical record. 

Figure 1 
Simplified Inventory Model 
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Pro- 


Field 


Size 




gram 


Name 






Name 






Part Number 


PN% 


PN$(FD) 


2 


Description 


DS$ 


DS$(FD) 


20 


Location 


L% 


L$(FD) 


2 


Cost 


KS! 


KS$(FD) 


4 


Price (selling) 


PR! 


PR$(FD) 


4 


No. on hand 


OH% 


OH$(FD) 




Reorder number 


RN% 


RN$(FD) 




Supplier 


SP% 


SP$(FD) 


k. 




Total 


Size = 


38 



If we start working with the first record of 
the file, then physical record 1 will hold 
logical records 1 through 5, and so on: 



Physcial Record Logical Records 



I- 5 
6-10 

II- 15 
16-20 
21-25 



remainder when divided by another 
number. To see how this works, take 13 
divided by 5, which gives us 2 with a 
remainder of 3. So, 3 is the modulus of 13 
with respect to 5. Mathematically this is 
expressed as: 

13 MOD 5 = 3 
Now consider the following table of the 
MOD of a whole series of numbers (ignore 
the third column for now): 



N 


M MOD 5 


(N-1JMOD 


1 


1 


1 


2 


2 
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3 


3 
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5 
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7 
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10 





5 


11 
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1 


12 


2 
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13 


3 


3 


14 


4 


4 


15 





5 



Now the item number will be the same as 
the logical record number. But how can we 
locate a record in a simple way? We use an 
operation called the Modulus. 

The modulus of a number is the 



As the table shows, the modulus of a 
number repeats itself over and over again 
at exactly the rate of the divisor 5. We want 
the numbers to go from 1 through 5 and 
repeat in that sequence. Consider what will 
happen with (N-1) MOD 5+1. Look at the 
third column in the table. 

The TRS-80 Model II has this operation 
built-in. If your system does not, there is 
still an easy way to compute the modulus: 
X MOD Y = X - INT(X/Y)*Y 

Try using this formula to compute 
column two in the table. You can make it 
work very easily on your computer by 
defining a "Modulus" function: 

DEF FNMD(X,Y) = X-IIMT(X/Y)*Y 

Now, to get the number of the record 
within a physical record where a particular 
item number (N) is stored, we can use the 
statement: 

FD = FNMD((N-1),5) + 1 

FD is the field within the particular 
physical record where the item is stored. To 
find the physical record try computing: PRN 
=INT((N-1 )/5)+1 . You will find that this PRN 
corresponds exactly to the physical record 
where a logical record is located. For 
example, if N=5, then PRN = INT((5-1 )/5)+1 
= INT(4/5)+1 =1. And if N = 1, then PRN = 
INT((1-1)/5)+1 =1. 

When we know the record number N, we 
then GET or PUT PRN = INT((N-1 )/5)+1 to 
find the appropriate record. The simplest 
way to locate the logical record is to have 
each of our variable fields be an array from 
1 through 5. Then we field the file like this: 
FIELD #1.2ASPN$(1), 20ASDS$(1), 
2ASL$(1), 4ASKS$(1), 4ASPR$(1), 
2ASOH$(1), 2ASRN$(1), 2ASSP$(1), 
13ASDM$(1) / 2ASPN$(2) 



The FIELD statement will continue until all 
the fields are defined. Note the use of the 
dummy string array DM$ to fill out each 
logical record. 

This definition of the file's FIELD is rather 
cumbersome and well worth shortening. 
We can use the same arrays and simply 
write a loop to define the fields like this: 
FORI=1T05:FIELD#1,{l-1)*51ASDY$, 
2ASPN$(I), 20ASDS$(I), 2ASL$(I), 
4ASKS$(I), 4ASPR$(I), 2ASOH$(l). 
2ASRN$(I), 2ASSP$(I):NEXTI 



This will define the fields exactly the same 
as the first FIELD statement. To put the 
variables into the fields, we write: 
LSET PN$(FD) = MKI$(PN%):LSET 
DS$(FD) = DS$ 

LSET L$(FD) = MKI$(L%):LSETKS$(FD) 
= MKS$(KS!) 

:LSET PR$(FD) = MKS$(PR!):LSET 
OH$(FD) = MKI$(OH%): LSET RfSI$(FD) = 
MKI$(RN%).LSETSP$(FD) = MKI$(SP%) 
The variable types have been included so 
you can see the relation between them and 
the fields. 

To recover the information from the file, 
we GET the record and then use the 
following: 

PN% = CVI(PN$(FD)):DS$ = DS$(FD):L% 
= CVI(L$(FD)) 

KS! = CVS(KS$(FD)):PRI = CVS(PR$( 
FD)) 

OH% = CVI(OH$(FD)):RN% = CVS(RIM$( 
FD)) 

SP% = CVI(SP$(FD)) 

Now we have a way of packing the 
records to get more than one logical record 
into a physical record. It is the same, 
whether you are using a Model I or a more 
advanced Disk Basic. 

No matter what system you use, 
sometimes the logical record number will 
not relate to a number. An example: We 
want to store a random access file of time 
management information. We want to 
have tasks, date due, priority, date started, 
and for whom in the file. 

Indexed Files 

One method for getting at any piece of 
information in a file is to create an index. 
The index will contain the key which will be 
used to access the data contained in the 
file. Consider our time management file. A 
natural key for this file is the date the task is 
due. We simply store the date for each 
entry in an array (stored on disk between 
program runs) which is then sorted into 
order by date. 

In order to use our key index, search the 
array until the correct key is found, and 
then print out the record corresponding to 
it. If there is more than one entry for the 
same date, print out all records for that 
date. 

In our next installment, we will cover 
keyed files in more detail. It will also cover 
the maintenance of such an index. • 
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Introduction 

In the language of Level II, the 
statement: PRINT USING A$, is the 
most versatile member of the video 
screen (PRINT) and printer output 
(LPRINT) statements. A string 
variable, A$, defines what we shall 
call the line image. By this 
mechanism, one can specify the exact 
placement of numeric or string 
variables within a line. In addition, if 
the variable is numeric, the number of 
decimal places to be displayed to the 
left and to the right of the decimal 
point can be designated. 

Numeric variables can be adorned 
by a variety of auxiliary symbols such 
as preceding asterisks, plus or minus 
signs, and the dollar sign. Commas 
can be placed between every third 
digit. Finally, numeric variables may 
be printed in exponential notation. 

Alphabetical data may also be 
displayed as desired. Within the line 
image, one may designate the 
placement of a single string variable or 
series of them. The first character of a 
string variable, such as the initialsof a 
name may be specified. String 
variables such as labels or special 
symbols may be embedded within the 
line image. 

In the PRINT USING A$ statement, a 
semicolon follows A$. This is followed 
by a list of the names of the variables 
represented in the line image. An 
outline of the specific symbolic 
representation of each of the options 



in the line image appears in the 
summary. 

When does one use the PRINT 
USING A$ statement? The easy 
answer is, anytime. The print using 
statement • is so powerful, it can 
essentially simulate any of the other 
output statements, and more. 



However, from a practical standpoint, 
since the PRINT USING A$ statement 
necessitates preplanning, one might 
prefer to usethis statement only when 
the other choices such as PRINT (with 
or without commas"\>r semicolons), 
PRINT@, or PRINT TAB are 
inadequate. 



100 CLEAR 1000 j 
110 A$="% % **$##//###.###+ +####,####.###### ##.######[[[["' 

115 REM 0123456789012345678901234567890123456789012345678901234567890 
120 CLS 

130 B$=STRING$(63,"-") 

140 C$=" % %" 

145 REM 0123456789012345678901234567890123456789012 

150 D$=" DEMONSTRATION OF PRINT USING A$;" 

160 E$(4)="SUM" 

170 PRINT C$ 

180 PRINT USING C$;D$ 

190 PRINT: PRINT 

200 INPUT" ENTER 3 NUMBERS (HIGH } MEDIAN, LOW)"; A#(l) ,A#(2) ,A#(3) 
210 SUM#=0 

220 PRINT: PRINT A$ Model II users - the percent sign in this program must be 

230 FOR 1=1 TO 3 changed to a backward slash (use Control-9). 

240 A(I)=A#(I) NOTE: Please interpret the [ as an "up-arrow", or caret. 

250 SUM#=SUM#+A#(I) 

260 E$(I)=STR$(I) 

270 PRINT USING A$ ;E$(I) ,A(I) ,A#(I) ,A#(I) 
280 NEXT I 
290 PRINT B$ 
300 SUM=SUM# 

310 PRINT USING A$;E$(4),SUM,SUM#,SUM# 
320 PRINT@900, 

330 INPUT"T0 PROCEED, PRESS ENTER" ;Z$ 

340 GOTO 120 Figure 1 

Spacing on lines 110 and 140 is critical. REMarks lines 115 and 
1 45 have been added to provide a count guide. 
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REAL VALUE 

AEROCOMP offers the best value in 
microcomputer disc drives on the market 
today! Reliability, features and cost tough 
to beat. We deliver... and we stand behind 
our products, as evidenced by the only 
FREE TRIAL OFFER in the industry. Ex- 
amine your systems needs and order to- 
day! 

MYSTERY REMOVED 

There appears to be some confusion in the 
terminology used to describe disc drives 
and their features. Here's what we mean: 

• FLIPPY Allows the use of both 
sides of a diskette with a single- 
headed drive by simply turning the 
diskette over (model 40-1&80-1) 
•TRACK DENSITY Specified in 
tracks per inch (TPI). Refers to the 
number of tracks per radial inch on 
the diskette. Typically 48 TPI = 40 
usable tracks and 96 TPI = 80 usable 
tracks. 

• DOUBLE DENSITY Refers to 
recording density in bits per inch 
(bpi). Typically single density means 
data can be recorded up to 2,938 
bpi; double density means data can 
be recourded up to 5,876 bpi 

• DOUBLE SIDED Refers to number 
of read/write heads. Single-sided is 
one head, read/write one side only; 
double-sided is dual heads allowing 
read/write operations on both sides 
of the diskette. A double sided drive 
appears as two seperate drives to 
the controller. 

• ACCESS TIME The time required 
for the head to move from one track 
to the next. Typacilly 5 to 40 
milliseconds (ms). ^mbam - ™ 



SELECT YOURS! 

• 40-Track "FLIPPY" $349.95 
(Model 40-1) 48 TPI, single dens. 
125K bytes/side, double dens. 
250K/side. 

• 80-TRACK "FLIPPY" $459.95 

(Mod. 80-1) 96 TPI, single dens. 
250K bytes/side, double dens 
500K/side. 

• 40 TRACK DUAL HEAD $459.95 

(Mod. 80-2) 48 TPI, double-sided, 
40 tracks/side; single dens. 250K 
bytes, double dens. 500K. 

• 80 TRACK DUAL HEAD $599.95 
(Mod. 160-2) 96 TPI, double-sided, 
80 tracks/side; single dens. 500K 
bytes, double dens. 1 megabytes. 



NOTE: All capacity values are unformated All 
models capable of single or double density. All 
with power supply/silver enclosure 1 1 5 VAC 
50-60 Hz 1 1 5/230 VAC available 



'SPECIAL PACKAGES* 

-MABJJER 40-Track FLIPPY drive,2-Drive 
cable,TRSDOS 2.3 Disk & ManuaLFreight 
& Ins. $369.95 (reg. $401.00) 



#1 40-Track FLIPPY drive 
2-Drive cable 
Newdos/80 

Freight & lns.$459.00<reg $528 oo; 

#2 80-Track FLIPPY drive 
2-Drive cable 
Newdos/80 

Freight & Ins. $569.00 (reg $638 oo) 

#3 TWO (2) 40-Track FLIPPY drives 
4-Drive cable 
Newdos/80 

Freight & Ins. $785.00 <reg $893 ooj 

#4 TWO (2) 80-Track FLIPPY drives 
4-Drive cable 
Newdos/80 

Freight & Ins. $999.00 (reg $1113 85) 

•DISK OPERATING SYSTEMS 
Newdos/80 $149.00 
VTOS 4.0 $125.00 
DOSPLUS 3.1 $99.95 



• DISKETTES, SOFT SECTOR, 5 1/4"(box 
of 10) 

Single-sided, single density $29.95 
Double-sided, double density $39.95 

• CABLES 
2-drive $24.95 
4-drive $34.95 
Extender $16.95 



Order your AEROCOMP Disc Drive and use 
it with your system for up to 14 days. If 
you are not satisfied for ANY REASON (ex- 
cept misuse or improper handling), return it, 
packed in the original shipping container, 
for a full refund. We have complete con- 
fidence in our products and we know you 
will be satisfied! ORDER TODAY! 



We offer you a 1 20 day unconditional war- 
ranty on parts and labor against any defect 
in materials and workmanship. In the event 
service, for any reason, becomes 
nescessary, our service department is fast, 
friendly and cooperative. 

100% TESTED 

AEROCOMP Disc Drives are completely 
assembled at the factory and ready to plug 
in when you receive them. Each drive is 
100% bench tested prior to shipment. We 
even enclose a copy of the test checklist, 
signed by the test technician, with every 
drive. AEROCOMP MEANS RELIABILITY! 
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ORDER NOW!! 

To order by mail, specify Model Number(s) of 
Drive, cable, etc (above), enclose check, money 
order, VISA or MASTERCHARGE card number 
and expiration date, or request C O D shipment 
Texas residents add 5% sales tax. Add $5 00 
per drive for shipping and handling. Please allow 
2 weeks for personel checks to clear our bank. 
No personel checks will be accepted on CO D 
shipments-cash, money orders or certified 
checks only You will receive a card showing the 
exact COD amount before your shipment ar- 
rives Be sure to include your name and shipping 
address WE SHIP PROMPTLY! In the event 
there is a slight delay, you will be notified of the 
shipping date and we will NOT charge your 
bankcard until the day we ship! 

WRITE AEROCOMP TODAY 
FOR MORE VALUES !!! 



FOR FAST SERVICE 
I) 824-7888, OPERATOR 24 

FOR VISA/MASTERCHARGE/C.O.D. ORDERS 
California dial (800) 852-7777, Operator 24. Alaska 
and Hawaii dial (800) 824 7919, Operator 24. 
TOLL FREE LINES WILL ACCEPT ORDERS ONLYI 
For Applications and Technical information, call 
(2)4) 337-4346 or drop us a card. 
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One of the major differences 
between the PRINT USING A$ and the 
other output statements is that 
numeric variables of the former are 
right justified while the numeric 
variables of the latter are left justified. 
This means that when properiy 
formed, the PRINT USING A$ 
statement aligns the decimal point on 
specific columns of the output. 

One common problem associated 
with the PRINT USING A$ statement is 
that representation of the data as 
single precision variables may be 
inadequate to conform to the required 
range of output representation. This 
difficulty can be remedied by defining 
all the crucial numeric variables 
leading to the computer output as 
double precision variables. It should 
be remembered that in general in 
Level II, single precision variables are 
stored with seven digit accuracy and 
printed with six digit accuracy. Double 
precision variables are stored with 1 7 
digit accuracy and printed with 16 
digit accuracy. The arbitrary 
introduction of a formatted decimal 
point however, can influence the 
printed output. Thus, each application 
should be tested in the specific 
numerical range of use to assure 
oneself that the desired representa- 
tion of the output has been achieved. 

There are four common situations in 
which the PRINT USING A$ is 
specifically indicated. The first 
situation is when the decimal point 
should be aligned in columns. The 
second situation is when numeric 
variables need specific adornments 
such as the dollar sign, asterisks, 
signs, commas, or labels. The third 
situation is when the output must be 
divided into a number of columns 
which are not easily formed by the 
ordinary PRINT or LPRINT statements. 
The fourth situation is when a string 
field must be printed repetitively 
throughout the program in a specific 
portion of a line of the output. 
Demonstration Program 
It is easier to demonstrate the PRINT 
USING A$ statement than to describe 
it. The program in figure #1 allows 
you to designate various line images 
(A$) and to test its effect upon three 
samples of the data (A#(l)) you expect 
to process. 

Discussion 

The program demonstrates how 
your computer can teach you about 
programming. It is somewhat 
inefficient to write single isolated 



PRINT USING A$ statements to be 
tested by single numbers. This is 
particularly true when the intended 
use of this formatting technique is not 
only to print symbols but to relate a 
screen full of symbols to each other in 
a visually meaningful manner. 

The program program provides the 
user with a full screen display for the 



effort of entering only three numbers. 
Subsequently, three different numeric 
formats may be tested and compared 
simultaneously. The actual format is 
printed on the line above the columns 
of data so that the relationship 
between format and data is clearly 
demonstrated. The program 
manipulates both string and numeric 



Program Comments 
LINE COMMENT 

100 Clears memory and saves string space. 

105 Remark line, added to allow for proper horizontal spacing. 

1 10 A$ is the line image. The formats of four variables are defined. 
The first position identified by % % is the line label. The 
remaining variables are numerical. The last variable will be 
printed in the exponential format. Various adornments are 
associated with the first two numeric variables. This statement 
should be modifiedto explore the full potential of PRINT USING. 

120 Clear screen, this is a return address from line 340. 

130 B$ is the line drawn to separate the data from the sum. 

140 C$ is the line image of the screen title. 

145 Remark line, added (see line 105). 

1 50 D$ is the screen title. 

1 60 E$(l) are line labels. The otherthree labels are generated in 260. 

170 The line image of the title is printed on the screen. 

180 The screen title is printed. Note the alignment of the title 

with its format. 
1 90 Skip two lines. 

200 Input three test numbers. Explore large and small values in both 

the positive and negative range. A#(l) is a double precision 

numeric variable. 
210 In addition to the input data, the sum of the input values is 

computed in double precision. To initialize summation, SUM# 

is set to zero. 

22.0 Skip a line and print the line image (A$) for the data. This serves 
as a column header and allows you to see the relationship 
between the data format and the data. If the data is well formed, 
the decimal points will be aligned, if there is an overflow of the 
format, a percent sign (%) will precede the data and the position 
of the decimal point will be shifted on the video screen. 

230 Loop to process 3 data points. 

240 Conversion of a subscripted double precision variable (A#(l)) to 

a subscripted single precision variable (A(l)). 
250 Sequential accumulation of the sum of the data in double 

precision. 

260 Formation of the line label (E$(l)) from the loop index (I). The loop 
index is a numerical value. E$(l) is a string variable. The STR$ 
statement converts a numeric to a string variable. 

270 Print the four variables designated in the line image A$. (E$(l) is 
the line label. A(l) and A#(l) are the single and double precision 
data variables respectively. 

280 End of loop. 

290 Print the line defined by B$. 

300 Double to single precision conversion of SUM#. 

310 Print the four variables designated in the line image A$. Note 
that the format properly aligns the label and the numbers. An 
important feature of the PRINT USING A$ statement is the 
capab;,,iy to use the same line image repetitively. 

320 Move the cursor to the bottom of the screen. 

330 Hold screen image and provide user with prompt to continue. 

340 Repeat program; to exit the program, press BREAK. 



64 80-U.S. Journal May/Jun 1981 



IUF1 






Li] \L 



i /iiinRn i 









UuCOOUl 



mm. ■ 



UftC DDI 

n&o mi 



MTCDC 



■ n 1 



1 no"OU IPO 




ROSYSTEWS& LTD. 



i 



c5 ? C©q^5ii;!i^!<iV= 
8 Wo 15th, North Vmmmrn 
56SS Kirigsw®^ Bymabif 



i 



Circle 27 



data and extends the use of formats to 
the results of a computation, the sum. 

The program demonstrates the use 
of other means of video screen display 
such as the PRINT, PRINT@ and INPUT 
statements. Other programming 
techniques which are illustrated are: 
subscripted variables, a loop, the 
technique for the accumulation of a 
sum and the use of STRING$ and 
STR$ statements. 

Summary 

We can now summarize the various 
options for the PRINT USING A$ 
statement. Note that in the following 
examples the string variable A$, used 
as the line image, is introduced 
directly within the statement. Despite 
these examples, it is best in any major 
application, in which formats of entire 
lines are specified, to define the line 
images separately. 

In general, the PRINT USING A$ 
statement formats strings and 
numbers. The following variations are 
allowed in the line image, A$. 
Combinations of most of these 
designations are possible. 



1. # formats numbers: PRINT 
USING "####" 9876.4 

2. . designates position of the 
decimal point: PRINT USING 
"##.##";98.005 Note that if the 
format contains fewer significant 
figures than the stored variables, the 
printed number will be rounded. 

3. , displays a comma to the left 
of every third digit: PRINT USING 
"####,";9876 

4. ** fills leading spaces with 
asterisks. PRINT USING"**#####"; 
98.46 

5. $ fixed dollar sign: PRINT 
USING"$####.##"; 198.76 

6. $$ floating dollar sign: PRINT 
USING"$$####.##"; 198.76 

7. **$ floating dollar sign with 
leading spaces filled with asterisks: 
PRIN T US'NG "**$####,##"; 8.76 

8. till exponential format 
PRINi uslNG"#,####£ HI! 
987654321 

9. + the sign is printed either 
before or after the number. 

PRINT USING"+####";987 



PRINT USING"+####"-987 
PRINT USING"####+;987 
PRINT USING"####+";-987 

10. - the minus sign is printed 
after the number. If the number is 
positive a space is printed: 

PRINT USING"####-";987 
PRINT USING"####-'V987 

11. ! prints the first character of 
a string: PRINT USING"!";BOB 

12. % % prints a string, the 
length if the number of spaces plus 
two: PRINT USING"% %";BOB 

The PRINT USING A$ statement is 
not difficult to use. It gives one 
complete control over the formatting 
of a line. Care should be taken to 
assure that the printed number is 
exactly the desired representation. 
Differences in printed numbers are 
associated with single and double 
precision calculations, conversions of 
numbers from double to single 
precision and in rounding. You can 
only be confident of the results by 
thoughful planning and meaningful 
testing. ® 
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Works Without Modification on 



Gary Sanderson 
Quincy, Illinois 



In the beginning Radio Shack created the TRS-80. 
In it they included hardware graphics capabilities and 
three graphics commands. Then came a "Video 
Display Worksheet", a "Graphics Character Chart", 
an indication that strings might be used with 
graphics, and in Level II BASIC Reference Manual 
(second edition, appendix C). As their latest 
contribution, a book TRS-80 Graphics, by Don Inman. 

Utilization of the Basic commands provides a 
simple method to draw graphs and motionless 
figures. Animation requires not only graphics 
capabilities but also the capability of writing on the 
video in such a manner to provide the appearance of 
realistic motion. As you will soon see, the commands 
SET and RESET do not have the capability to write on 
the video fast enough to create realistic motion. 

Through the use of several benchmark programs, 
included here to allow you to experience the results 
firsthand, it has been determined where some 
problems exist and how to work around them. The 
benchmark programs all are designed to perform the 
same animation task. This task is very simple to allow 
quick program writing and debugging. The animation 
task is to create a horizontal line in the upper third of 
the video and move it to the bottom third. No attempt 
will be made to make the motion smooth in the 
benchmark programs since it was immediately 
apparent that speed is the most evident problem. 
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Benchmark 1 uses SET and RESET to create the 
line and move it. Running this simple benchmark will 
immediately show that these two commands do not 
have the necessary writing speed to be used for 
animation purposes. Using the SET and RESET 
commands allows only one graphics dot to be 
modified each time these functions are run by the 
Basic interpreter. As you can see the interpretation 
speed of Level II Basic is not fast enough for 
animation programs using only SET and RESET. 

100 REM BENCHMARK #1 -ANIMATION USING SET/RESET 
110 REM 
120 CLS 

130 FOR Y=l TO 40 
140 FOR X=24 TO 50 
150 SET(X,Y) 
160 NEXT X 
170 FOR X=24 TO 50 
180 RESET(X,Y-1) 
190 NEXT X: NEXT Y 
200 STOP 

How can the writing speed be improved? One 
method is to write more graphics dots for each Basic 
command required. The CHR$(n) command could be 
used to create graphics characters equivalent in size 
to the alphanumeric characters. This graphics 
cha, outer consists of 6 graphics dots ina 2X3 matrix. 
Using CHR$(n) will write 6 graphics dots each time 
the Basic interpreter executes this command so it 
appears that a 6:1 improvement in writing speed 



SOFTWARE by MiProg 



XEDIT, a high powered compact disk based editor designed for the 
TRS-80©„ Model I or II. Whether it is BASIC, ASSEMBLY, or 
FORTRAN, XEDIT is packed full of commands needed by programmers 
who are serious about their work. Here are just a few features: 

• Edits most file formats 

• Block text copy command 

• Locate, Delete, and Change with windows 

• Inserts and maps up to five input files 

• Upper/lower case compatible 

• Operates with or without line numbers 
® Rapid access disk cache 

• Recovers from most DOS errors 

• Fast file entry point map 

• Change text command for any number of occurrences 

• DOS Directory and Kill commands 

• Line printer paging with adjustable forms 

• Sophisticated reprinting line editor, handles line feeds 

• Disk BASIC, Disk EDTASM, and EDIT-80 format compatible 

• Display status command, includes free memory, current pointer 
printer forms, number of input files, output filename and format. 



XEDIT will handle files of any size up to 2.7 Megabytes or 10K lines in 
length. Comes complete with instructions covering operation, externals, 
and file formats. 

Model I (32K single disk system) 

Formatted diskette $44.95 

Cassette tape $39.95 

Model II 

Formatted diskette $89.95 

Model III (32K single disk system) 

Formatted diskette $79.95 

Cassette tape $75.95 



ASM/CMD, a disk based assembler which generates object code to disk or 
tape (disk only on Model II). Accepts any file format including ASCII Disk 
BASIC. Listing may be outputted to display, disk file, or paged with 
adjustable forms to printer. Operates under standard Z80 Zilog Mnemonics 
with 9 pseudo operations. Comes complete with operating manual. 

Model I (16K single disk system) 

Formatted diskette $34.95 

Cassette tape $29.95 

Model II 

Formatted diskette $59.95 

Model III (32K single disk system) 

Formatted diskette $49.95 

Cassette tape $45.95 



Special package, XEDIT, ASM, and PACK. 
Model I 

Formatted diskette $79.95 

Cassette tape $74.95 

Model II 

Formatted diskette $149.95 

Model III 

Formatted diskette $129.95 

Cassette tape $125.95 

XDIR/CMD, an extended directory „that offers more than the standard 
TRSDOS© directory. XDIR will do multiple drive directories with all file 
attributes including extent locations, file length, EOF index, EOF record, 
protection level, LRL, password indication, track lockout indication, and 
much more. XDIR will also display to the printer. 

Model I (16K disk system) 

Formatted diskette $19.95 

Cassette tape $15.95 

CALL/CMD extends and improves the TRSDOS® AUTO function. Can 
be enabled and disabled by prompts, and through keyboard, resident 
program, or the call file. 

Model I (16K single disk system) 

Formatted diskette $19.95 

Cassette tape $15.95 

TANDON/CMD improves TRSDOS© by allowing higher step rate, 
extending access to 40 tracks for the new Tandon disk drives. Also fixes 
the break key problem. 

Model I (16K single disk system) 

Formatted diskette $14.95 

Cassette tape $ 9 - 95 



DEXER/CMD, a disk exerciser emulator program designed to speed repair 
of any TRS-80© compatible disk drive. DEXER eliminates the need for 
the Shugart SA809 test fixture and decreases repair time with easy to use 
commands and on screen display of required set up data. DEXER was 
written specifically for the repair technician and Shugart or Tandon disk 
drives. Shugart alignment diskette or equivalent and a 30Mhz oscilloscope 
required. One key commands allow easier adjustments necessary for 
Shugart alignment. DEXER is not for general disk testing and is recom- 
mended only for > service personnel who have previous experience in disk 
drive repair. 

Model I (16K single disk system) 

Formatted diskette $24.95 

Cassette tape $19.95 

Dip shunts for conversion and upgrades for the TRS-80™ Comes com- 
plete with instructions for A, D, E, and G level boards and new 2 chip 
level II. 

Two dip shunts and instructions $1.00 



PACK/CMD removes spaces from text files generated by XEDIT, and 
EDIT-80 to reduce file lengths by 5 to 40 percent. PACK will also strip 
comment fields and line numbers for additional space savings. Text can be 
masked for upper case only. Does not destroy compatibility of assembly 
and FORTRAN source files. Comes complete with instructions. 

Model I (16K single disk system) 

Formatted diskette $14.95 

Cassette tape $ 9.95 

Model II 

Formatted diskette $19.95 

Model III (32K single disk system) 

Formatted diskette $14.95 

Cassette tape $ 9.95 




VISA 



Please send check or money order to: 
MiProg 

P. O. Box 27014 
Minneapolis, MN 
55427 

612-574-1711 



Minnesota residents add 4% sales tax. Outside continental U.S.A., add 
$3.50 postage and handling. 

TRS-80© and TRSDOS© is a trademark of Radio Shack, a Division of 
Tandy Corporation. 
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should be noted. Running benchmark 2 will showyou 
the improvement obtained with CHR$(n). 

100 REM BENCHMARK #2 - ANIMATION USING CHR$(N) 
110 REM V ' 

120 GLS 

130 FOR Y=l TO 13; Y1=Y*64: Y2=Yl-64 

140 FOR X=12 TO 24 

150 PRINTS X+Yl, CHR$(131); : 

160 PRINTS X+Y2, CHR$(128); 

170 NEXT X 

180 FOR X=12 TO 24 

190 PRINTS X+Yl, CHR$(140); 

200 NEXT X 

210 FOR X=12 TO 24 

220 PRINTS X+Yl, CHR$(176); 

230 NEXT X: NEXT Y 

240 STOP 

In this example, for each increase in the Y value, 
three lines are written and erased. First, lines 140- 
1 70 write a line in the top elements of the matrix and 
erase the line in the bottom elements of the matrix 
above the new line. Second, lines 180-200 write a 
line in the middle elements of the matrixand in doing 
this, erase the line in the top elements. Third, lines 
210-230 write a line in the bottom elements of the 
matrix erasing the middle elements. Graphics 
character 128 is a blank. 

Benchmark 2 is an improvement over benchmark 

1 , but it is stili much too slow (slower than the rate at 
which text is written to the video). What is the 
difference which makes it possible to write text so 
much faster? First, look at line 1 80-200 in benchmark 

2. To write one graphics character, (six graphics 
dots), it is necessary to interpret five basic 
commands. Two of these create a FOR. ..NEXT loop 
commonly used for delay. Now look at the simple 
PRINT statement: 

PRINT "THE QUICK BROWN FOX JUMPED OVER 
THE LAZY DOG'S BACK" 

Only one Basic command and 51 alphanumeric • 
characters are written. No wonder text is faster! 

Since there are no graphics keys on our keyboard it 
is not possible to insert graphics characters into the 
print statement. By storing the data to be printed we 
can still write the same 51 characters with only a 
slight increse in interpreter overhead: 
A$="THE QUICK BROWN FOX JUMPED OVER THE 
LAZY DOG'S BACK" 

The advantage to be noted here is that there are 
several commands to operaie on strings and none to 
operate on "xxx". There exists a simple way to build 
strings using CHR$(n): 

A$=CHR$(128)+CHR$(131)+CHR$(140)+CHR$(1 76) 
This string can now be written to the video rapidly It 
will take some time to create the strings but this can 
be done during the program initialization, and then 
output to the video as needed. Benchmark 3 shows a 
method of loading and writing the strings. 



100 REM BENCHMARK #3 - ANIMATION USING STRINGS 

110 REM 

120 GLS 

130 CLEAR 100 

140 A$= KM s B$» M ": C$- MM i D$= MM 

150 FOR J»12 TO 24 

160 A$-A$+CHR$(131) 

170 B$-B$+CHR$(140) 

180 C$=C$+CHR$(176) 

190 D$-D$+CHR$(128) 

200 NEXT J 

210 FOR Y=l TO 13: Yl-Y*64+12: Y2-Y1-64 

220 PRINTS Y1,A$; 

230 PRINTS Y2,D$; 

240 PRINTS Y1,B$; 

250 PRINTS Y1,C$; 

260 NEXT Y 

270 STOP 

At last! Graphics writing speed that will allow 
animation. For large or complex animation this 
writing speed is not fast enough, but for simple 
animation it will be fine. It appears that further 
increases in writing speed will require the use of 
assembly language programs, or at least assembly 
language subroutines. The advantages of Basic over 
assembly language for the average user makes this 
an acceptable compromise. 

Although benchmark 3 is capable of filling graphics 
characters into strings, it is obvious that considerable 
program memory will be required to store a matrix of 
different characters, since "+CHR$(n>" is required for 
each graphics character (2X3 element). A more 
efficient method of creating these strings is found in 
example 1. This example uses READ and DATA to 
enter the graphics characters into an array of strings. 

100 REM EXAMPLE #1 - GRAPHIC STRINGS FROM DATA 
STATEMENTS 

110 REM 

120 CLS 

130 CLEAR 100 

140 DIM A$(3) 

150 FOR 1-0 TO 3 

160 A$(I)-" M 

170 FOR J-l TO 12 

180 READ As A$(I)-A$(I)+CHR$(A) 

190 NEXT J: NEXT I 

200 DATA 131,131,131,131,131,131, 
131,131,131,131,131,131 

210 DATA 140,140,140,140,140,140, 
140,140,140,140,140,140 
220 DATA 176,176,176,176,176,176, 
176,176,176,176,176,176 
230 DATA 128,128,128,128,128,128, 
128,128,128,128,128,128 
240 FOR Y-l TO 13: Yl-Y*64+12: Y2-Y1-64 
250 PRINTS Y1,A$(0); 
260 PRINTS Y2,A$(3); 
270 PRINTS Y1,A$(1); 
280 PRINTS Y1,A$(2); 
290 NEXT Y 
300 STOP 
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EDAS 4.0 (Editor/Assembler) 

This is the highly acclaimed "USER ORIENTED" Assembler 
for the TRS-80 Model II by GALACTIC. Loaded with features 
such as assemble to memory, block move, link to debugger, 
default filenaming, reverse video editing, warm start entry 
and much more. Now the programmer can write, assemble, 
test, and debug his code without ever leaving EDAS. 
EDAS 4.0 with complete manual (120 pages) 

Model II Version Was $229.00 

NOW ONLY $179.00 

MASS/MAIL SYSTEM 

This is the NAME and ADDRESS system for subscription 
control or large mailing lists. It will handle up to 10,500 
records, with a worst access time of less than 15 seconds 
and usual access of less than one second. All adds, deletes, 
and edits are instant for the operator and are then 
completed later in a "batch monitor". Extensive documen- 
tation and ongoing support. Requires TRS-80 Model II and 2 
disk drives minimum. Contact GALACTIC direct for detailed 
specifications and prices for your exact needs. 
Model II Version Contact GALACTIC for Price 

STOCK MARKET MONITOR 
This day to day market monitor is designed for the active 
trader. The system will track the performance of an issue 
against the market as well as against itself. The package 
comes with complete documentation and explainations of 
the formulas that are used by the program. The system is 
available for the Model I and the Model III TRS-80. 

Model I and ill cassette version $89.00 

Model I and III disk version $99.00 

INVENTORY MASTER 

Tired of being a slave to an out-of-control inventory? Let 
GALACTIC'S INVENTORY MASTER put you in control of your 
inventory. INVENTORY MASTER operates on a TRS-80 
Model I and Model III48K disk system (Minimum of 2 drives 
with capabilities of up to 4 drives). Drive spanning 
capabilities allow you to track 2700 inventory items with a 4 
drive system (5100 items for the Model III). Unique 
machine language sort allows for instantaneous item 
insertion (approx. 15 seconds with 2700 items in system). 
Item access can be immediate using system-supplied 
control numbers. Modeled after a proven main-frame 
system costing tens of thousands of dollars. Complete 
add/edit/delete capabilities supported. Placement of 
orders can be machine-generated as well as user- 
generated, with editing capabilities. Full report-generator 
included. Exquisitely documented. 

Model I Version $159.00 

Model III Version $259.00 



MODEL II HOST I/O SYSTEM 
From the original author of the TRS-80 HOST and TERM 
systems in the RADIO SHACK "COMMUNICATIONS 
PACKAGE". This system allows the full control of the HOST 
facility by your BASIC program. Set the number of nulls to 
be sent after a C/R, set a command line to be executed if 
carrier is lost, turn HOST on and off, switch to channel Aor B 
as desired, enable and disable the ability for the remote 
terminal to "BREAK" BASIC, identify whether a character 
came from the HOST'S keyboard or from the REMOTE'S and 
more No knowledge of assembler needed. All options may 
be accessed from BASIC or ASSEMBLER. Complete with 
detailed documentation. Don't isolate your Model II, Let 
outside terminals access it's computing power. 

Model II with TRSD0S 1.2 $179.00 

Model II with TRSDOS 2.0 $199-00 

IHIL/FILE SYSTEM 

This is the name, address, phone number data base 
manager that has set the standard by which other systems 
are compared. This system contains advanced editing and 
output capabilities. The TRS-80 Model I system will handle 
up to 600 records per file, while the Model III version will 
handle up to 1150 records and the Model II will handle 
2500 records per file. All versions are file compatable and 
maintain constant sort indexes on both NAME and ZIP 
CODE. International PHONE numbers and ZIP CODES are 
supported. Thousands of code combinations are available. 
The Model II version also has a "word processor" type input 
editor and fast assembler sorting. Complete documentation 
is included with each version of MAIL/FILE. 

Model I Version $ 99 00 

Model III Version $149.00 

Model II Version $199.00 

ULTRA TREK 

This is an all new concept for this type of game, and 
compares to the others like chess compares to checkers. 
ULTRA-TREK is a complex, logical game, intended for the 
serious contestant. It is doubtful that you will ever master 
this game, but you will certainly enjoy trying! This program 
requires a TRS-80 Level II, 16K or more. The program is 
written totally in BASIC and uses 15.5K of RAM. 

Model I & Model III Version 

(cassette only) $14.95 




A Division of GS & WS, Inc. 

11520 N. Port Washington Rd. 
Mequon, Wisconsin 53092 
(414) 241-8030 
Money Orders & COD's Shipped Within 24 Hours. Checks allow 2 weeks. 




Circle 33 
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Graphics Animation 



Example 1 runs the same as benchmark 3, but 
provides a much easier method to load the graphic 
string array. 

A more efficient method of loading the string 
variable is "packed strings", and is outlined in 
example 2. This method is memory efficient as well, 
and consumes less initialization time. Due to the 
complexity of the operations required this method is 
suggested for the experienced and patient 
programmer. 

100 REM EXAMPLE #2 -GRAPHICS W/ PACKED STRINGS 

110 REM 

120 CLS 

130 DIM A(3) 

140 REM TYPE THE NEXT 4 LINES EXACTLY AS SHOWN 
150 A$ ( ) = "ABCDEFGHIJKL " 
1 6 A$ ( 1 ) = "ABCDEFGHIJKL " 
170 A$ ( 2 ) = "ABCDEFGHIJKL " 
180 A$ (3)="ABCDEFGHIJKL" 

190 REM THE LINE LOCATOR STARTS AT LINE 30000 

THE GRAPHICS PACKER #1 STARTS AT 30100. 

200 REM RUNNING THE GRAPHICS PACKER #1 WILL 
CHANGE LINES 150-180 TO: 
A$(0)="SETSETSETSETSETSETSETSETSETSETSETSET" 
A$ ( 1 ) = "LETLETLETLETLETLETLETLETLETLETLETLET " 
A$ ( 2 ) = "DEFDEFDEFDEFDEFDEFDEFDEFDEFDEFDEFDEF " 
A$ ( 3 ) - "ENDENDENDENDENDENDENDENDENDENDENDEND " 

210 FOR Y=l TO 13: Y1=Y*64+12: Y2=Yl-64 

220 PRINT@ Y1,A$(0) 

230 PRINT@ Y2,A$(3) 

240 PR1NT@ Y1,A$(1) 

250 PRINT@ Y1,A$(2) 

260 NEXT Y 

270 STOP 

30000 REM LINE LOCATOR 
30010 REM 

30020 C=PEEK( 16548) + PEEK( 16549) * 256 

30030 N=PEEK(C+0)+(PEEK(C+l)*256) 

30040 M=PEEK(C+2)+(PEEK(C+3)*256) 

30050 PRINTLINE # " ; M , "MEMORY ADDRESS -";C; 

30060 C=N: INPUT X: GOTO 30030 

30100 REM GRAPHICS PACKER #1 

30110 REM 

30120 INPUT"LINE ADDRESS ";S 
30130 FOR J=ll TO 22 

30140 X=PEEK(S+J): PRINT"N0W - "; CHR$ (X) ,X , ; 
30150 INPUT"GRAPHIC VALUE ";X 
30160 POKE S+J,X 
30170 NEXT J 
30180 GOTO 30120 

In example 2 there are actually three programs: 
1. Animation program - this is where the final 
result of this example will be found. Lines 140 
through 180 are initially entered as dummy 
statements. It is very important that they be entered 
exactly as shown, because the graphics packer 
assumes that the dummy characters within the 
quotation marks is offset from the start of the line by a 
fixed amount. The addition or deletion of even a 
single space will cause the graphics packer to place 



its data in the wrong toaction. After running the 
graphics packer you will find these lines have been 
modified and they will look like a string of Basic 
command words. The result of this operation is not 
editable. 

2. Line location program - this program will locate 
the memory addresses required in the graphics 
packer. It displays the source line number and the 
memory address where it starts. Each time ENTER is 
pressed the next source line data will be displayed. 

3. Graphics packer 1 program - this program is the 
workhorse for this method. It asks for the memory 
address of the line to be modified, calculates the 
offset to the first quote mark, displays the character it 
found for your verification, requests the graphics 
character desired, and places it in that location. This 
process continues until finishing the selected line. 
Note: This program is designed for a given offset from 
the start of the line and for a given number of 
characters. Any attempts to use this in any other 
manner may result in failure and possible loss of any 
program in memory. During the development of this 
program I destroyed several hours of work. I 
recommend that prior to running this program insure 
that you have saved a copy of everything in memory 
that you may need. 

Entering the example is done in several phases and 
the instructions must be carefully followed: 

1. Enter the source as shown in the listing. Lines 
1 90 and 200 can be omitted since they do not affect 
the operations that follow. 

2. Run the Sine locator, 

RUN 30000 The program will display a line 
number and address each time you press ENTER. 
Notice the addresses shown here are samples. 
Different combinations of source program material in 
memory will cause the addresses to vary. 

EXAMPLE #2 RUNNING UNDER NEWD0S80 

LINE # 100 MEMORY ADDRESS - 27206 ? 

LINE # 110 MEMORY ADDRESS - 27251 ? 

LINE // 120 MEMORY ADDRESS - 27257 ? 

LINE # 130 MEMORY ADDRESS - 27263 ? 

LINE # 140 MEMORY ADDRESS - 27274 ? 

LINE # 150 MEMORY ADDRESS - 27319 ? 

LINE // 160 MEMORY ADDRESS - 27344 ? 

LINE # 170 MEMORY ADDRESS - 27369 ? 

LINE # 180 MEMORY ADDRESS - 27394 ? 

3. Run the graphics packer #1. 

RUN 30100 This program will ask for the line 
address to be modified. 

LINE ADDRESS? 18449 (ENTER) Enter the 
memory address that you obtained from the line 
locator for line 150. Do not use the address shown 
here. 



LINE ADDRESS ? 27319 

NC" -A 65 

NOW - B 66 

NOW - C 67 

NOW - D 68 



GRAPHIC VALUE f 131 
GRAPHIC VALUE ? 131 
GRAPHIC VALUE ? 131 
GRAPHIC VALUE ? 131 



70 80-U.S. Journal May/Jun 1981 



■ 



1 1 i I 



fHHMT Jm W TTTWTT THyflTT'PTP 
LWJIJBuia UaiiiMilli 

m 

^wSSaSie oS'S© B',- : . ; i7ket today for TRS^O® Computed 

at SIPI1 PISiiiiT PRICES! 



□ MIDWAY 1350 

□ NUKE WAR 13 50 

□ PLANET MINERS 13.50 

□ CONVOY RAIDER 13 50 

□ B1 BOMBER 1350 

□ LORDS OF KARMA 18 00 

PROGRAMMERS itJSU 

□ DREADNAUGHT 13 55 

□ DREADNAUGHT [D] 17 95 

□ DUTCH GOLD [D] 17 95 

□ DUTCHMANS GOLD 13 55 

□ ELECTRA DRAW 2.0 17 95 

□ SPIDER MOUNTAIN 13 55 

□ SPIDER MOUNTAIN [D] 17 95 

□ THUNDER 1355 

APPliAT 
O NEWDOS/80 12500 

ADVENTURE INTERNATIONAL 

□ ADVENTURE HINT BOOK 7 95 

□ ADVENTURE #0 6 .25 

□ ADVENTURE (1.2,3) [D] 35 95 

□ ADVENTURE (4.5,6) [D] 35.95 

□ ADVENTURE (7.8,9) [D] 35 95 

□ ADVENTURE #10 [D] 18 95 

□ ADVENTURE (specify 1-10) 13 55 

□ MEAN CHECKERS MACHINE 17 95 

□ MEAN CHECKERS MACHINE (D) . . . . 22 95 

□ DR CHIPS 13 55 

□ DR CHIPS [D] 17.95 

□ INTER FICTION SAMPLER [D] 13.55 

□ INTER-LOCAL CALLS [D] 17 95 

□ INTER-TWO HEADS [D] 17 95 

□ INTER-IMPETUOUS [D] 17 95 

□ KID-VENTURE 1 13 55 

□ STAR TREK 3 5 13 55 

□ STAR TREK 3.5 [D] 17 95 

□ ZOSSED IN SPACE 13 55 

□ MACES #1 BARLOG 31 00 

□ MACES #1 SISYPHUS 3100 

□ LUNAR LANDER 13 55 

O LUNAR LANDER (D) 18 95 

□ POKER 13 55 

□ GALACTIC TRILOGY [D] 35 95 

ACORN SOFTWARE 

□ ATERM 17 95 

□ SYSTEM SAVERS 13 55 

Q TING-TONG 8 95 

□ DISASSEMBLER 13 55 

□ DISK/TAPE UTILITY 17 95 

□ CHECKBOOK [D] 22 95 

□ STAR TREK SIMULATION 8 95 

□ CODEBREAKER 8 95 

□ OPERA THEATER 8 95 

□ GAMMON CHALLENGER 13.55 

□ BLACKADE 8 95 

□ PIGSKIN 1355 

□ STRUCTURED BASIC [D] 28 95 

□ ULTRA TREK 13 55 

□ SPACE WAR 8.95 

□ WARP/LANDER 8 95 

□ BASKETBALL [D] 18 95 

□ BASKETBALL 13 55 

□ DUEL-N-DROIDS [D] 18 95 

□ DUEL-N-DROIDS 1355 

□ INVADERS FROM SPACE 13.55 

□ INVADERS FROM SPACE [D] 18 95 

a PIGSKIN [D] 18 95 

□ PINBALL 13 55 

□ PINBALL [D] 18 95 

□ QUAD I3 55 

□ QUAD (DJ 1995 

□ SUPERSCRIPT |D] 28 95 
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C-TRS-80 Color 
D-on Disc 

If not marked - Cassette 



HAYDEN 

□ SARGON II 25 00 

□ SARGIN II [D] 30 00 

AUTOMATED SIMULATION 

O STAR WARRIOR [CASS, OR DISK] .... 35.95 

D THREE PACK [D] 45 00 

O STARFLEET [CASS, OR DISK] 22 50 

□ INVASION [CASS, OR DISK] 22 50 

□ APSHAI [CASS, OR DISK] 26 95 

□ RYN [CASS, OR DISK] 17.95 

□ MORLOC [CASS, OR DISK] 17 95 

D RIGEL [CASS, OR DISK] 22 50 

□ HELLFIRE [CASS, OR DISK] 26 95 



BIG FIVE SOFTWARE 

a ATTACK FORCE (MODEL 1 OR 3) . 

□ GALAXY INVASION (MODEL 1 OR 3) 

□ METEOR MISSION (MODEL 1 OR 3) . 

□ SUPER NOVA (MODEL 1 OR 3) 

□ COSMIC FIGHTER (MODEL 1 OR 3) . 



14.55 
14.55 
. 9.95 
14.55 
14 55 



COMPUTER SIMULATIONS COMPANY 

□ BATTLE OF BULGE-BASTGONES .... 17.95 

□ D-DAY INVASION OF FRANCE 17 95 

□ DARK KINGDOM 11 75 

□ DOG RACE, COLOR ONLY [C] 5 95 

□ ELECTRIC ALARM 4 95 

□ EMPIRE STRIKES BACK 13.55 

□ GREAT DICTATOR 7 25 

□ JEDI KNIGHT 1 1 75 

□ LUNAR ENCOUNTER 1175 

□ MERCENARY 8.95 

□ MICRO ARCADE 13 55 

□ SHARK, COLOR ONLY [C] 5,95 

□ SLOT MACHINE 7 25 

□ BATTLE OF BULGE-ST VITH 13 55 

□ STAR CRUISERS 13 55 

□ TYPEWRITERS 17 95 

□ U-BOAT, COLOR ONLY [C] 5.95 

□ ORION WAR. COLOR ONLY [C] 5 95 

□ POLARIS, COLOR ONLY [C] 5 95 



iiSTAiT SiFTWAlE 

□ AIR FLIGHT SIMULATION 7.25 

□ AIRMAIL PILOT 8 95 

□ ALL STARS [D] 31 55 

□ ASTEROIDS [D] 17 95 

□ ASTEROIDS 13 55 

□ BASIC PROGRAMMING ASSISTANT .. 13 55 

□ BALL TURRET GUNNER 8.95 

□ BATTLEGROUND 8 95 

□ CHECK MANAGEMENT [D] 36 55 

□ CHESSMATE-80 17 95 

□ THE COMMUNICATOR 8.95 

□ COSMIC PATROL 13 55 

□ COSMIC PATROL [D] 17.95 

□ DAREDEVIL 8.95 

□ DISASSEMBLER 8.95 

O DISK EDITOR [D] 36 55 

□ DISK SCOPE (D] 17 95 

□ DLDIS [D] 1795 

□ DEVICE DRIVERS 17 95 

□ ENHANCED BASIC 22 50 

□ ELEC REPRT GEN 8 95 

□ FLIGHT PATH 8.95 

□ FLYING CIRCUS [D] 36.55 



INSTANT SOFTWARE 

□ GEOGRAPHY [D] 45 00 

O I.Q. TEST 8.95 

□ INVADERS 8.95 

□ INVESTORS PARADISE 8.95 

□ IRV 22 50 

□ IRV [D] 27.55 

□ JET FIGHTER PILOT 13 55 

□ MIND WARP 8 95 

O MONEY MADNESS 8.95 

□ NIGHT FLIGHT 8.95 

□ ONE-D MAILING LIST [D] 22 50 

□ OTHELLO 8 95 

□ PROGRAMMER'S CONVERTER 8.95 

O QSL MANAGER [D] 17 95 

□ SANTA PARAVIA FIUMACCIO 8 95 

□ SKIRMISH-80 8.95 

□ TERMINAL-80 22.50 

□ TLDIS 13.55 

□ UTILITY I 7 25 

O UTILITY II 7 25 

□ WINNERS DELIGHT 8.95 

□ WORDSLINGER 26.00 

PERSONAL SOFTWARE 

□ CCA MGMT-TRS-80 65 00 

QUALITY SOFTWARE 

□ DEBUG 13 55 

□ FASTGAMMON 17.95 

□ LOWBALL POKER 10.45 

□ BANKSHOT 8.95 

a POKER PETE 10 45 

□ RUMMY MASTER 10 45 

O 3D TIC TAG TOE 13.55 

□ QS LIGHT PEN 17.95 

□ SKETCH 80 13 55 

STRATEGIC SIMULATIONS 

□ COMPUTER BISMARCK [D] 51 50 

□ COMPUTER BISMARCK 42.00 

SUB-LOGIC 

D T80-FS1 FLIGHT SIMULATOR 22 00 

Q 3D GRAPHICS 26 50 

bottoimsNelf 

□ ANALYSIS PAD [D] 90.00 

□ BASIC TOOLKIT 17 80 

□ BUSINESS MAIL [D] 100.00 

□ CHECKBOOK II [D] 44.50 

O CHECK REGISTER [D] 67 00 

□ DATA MANAGER [D] 67.00 

O HEAD CLEANER [D] 17 00 

D INFO SYSTEM [D] 44.50 

□ LIBRARY 100 44.50 

□ SYSTEM DOCTOR [D] 35.50 

□ SYSTEM DOCTOR 26 00 

microsoft softwame 

□ ADVENTURE [D] 25.50 

□ ASSEMBLY DEVELOPMENT [D] .... 80,00 

□ BASIC COMPILER [D] 175.00 

□ EDITOR/ASSEMBLER 25.00 

□ FORTRAN COMPILER [D] 80.00 

□ LEVEL III BASIC 44.00 

□ MuMATH [D] 64.00 

□ OLYMPIC DECATALON [CASS OR DISK] . . 20 00 

□ TYPING TUTOR 13.55 



If you don't see it listed, write...we probably hawe it in stock! 



Ship the above programs as checked to: 

Mr /Mrs 

Address 

City 

State Zip_ 



Number of Programs Ordered 

Amount of order 

NY residents add Sales Tax ... 

Add shipping anywhere in the U S 2.00 



I have a 
with 



name of Computer 



Total amount enclosed 

Charge my □ Master Charge □ Visa 



Signature 



K memory Card No 



Expires 



fa/7 to: 



TRS-80 is a registered trademark of TANDY CORP. 
Prices subject to change without notice. 



31 East 31st Street, New York, N.Y. 10016 
Circ.e 34 (212) 889-8975 



Graphics Animation 



NOW - E 69 

NOW - F 70 

NOW - G 71 

NOW - H 72 

NOW - I 73 

NOW - J 74 

NOW - K 75 

NOW - L 76 
LINE ADDRESS ? 27344 

NOW - A 65 

NOW - B 66 



GRAPHIC 
GRAPHIC 
GRAPHIC 
GRAPHIC 
GRAPHIC 
GRAPHIC 
GRAPHIC 
GRAPHIC 



VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 



131 
131 
131 
131 
131 

131 
131 



GRAPHIC VALUE ? 140 
GRAPHIC VALUE ? 



Enter the graphics character value (decimal). If the 
"now" character is not the character wanted. Hit 
BREAK and start over if you did something wrong. 
The graphics values for line 150 is 131; line 160 is 
140, line 170 is 176 and line 180 is 128. 

150 A$(0) = "SETSETSETSETSETSETSETSETSETSETSETSET' 
160 A$ ( 1 ) = "LETBCDEFGHIJKL" 
170 A$ ( 2 ) = "ABCDEFGHI JKL " 
180 A$ ( 3 ) = "ABCDEFGHI JKL " 

If this is what you find, you have done everything 
correctly. Note: The Basic commands listed are really 
not there. Basic thinks that the graphics characters 
are compressed commands and when listing the line 
it expands them as Basic commands. The 12 
characters shown take 12 bytes of memory. 

I have described a method to rapidly write graphics 
and to efficiently create Basic source programs for 
these graphics. All that remains now is to define an 
example set of graphics for animation, convert these 
to packed graphics strings, and write the necessary 
subroutines to provide the motion. 

For a practical, yet simple example, I have created 
an Android. He is capable of walking left and right, 
looks up and down and moves his hands and arms! 
The Android is divided into three parts: 
HEAD - two strings 12X3 points each 
BODY - two strings -12X3 points each 
FEET - one string -12X3 points each 

This results in the Android contained within a 1 2 X 
1 5 point matrix. Since the Android has been defined 
as three separate parts, it is possible to combine 
different selections of head, body and feet to create 
the animation desired. 

Nine different positions are used for each part of 
the android. To creat motion from right to left, the 
following sequence is used: 



HEAD 


BODY 0, 


FEET 


HEAD 1 


BODY 1, 


FEET 1 


HEAD 


BODY 0, 


FEET 2 


HEAD 1 


BODY 1, 


FEET 2 


HEAD 1, 


BODY 1, 


FEET 3 


Motion i 


n the opposite direction 


uses: 


HEAD 8, 


BODY 8, 


FEET 8 


HEAD 7, 


BODY 7, 


FEET 7 


HEAD 8, 


BODY 8, 


FEET 6 


HEAD 7, 


BODY 7, 


FEET 5 



FEET 
1 

4 
4 
4 
7 



!n addition to his 8 profile views the Android has 
five basic front views: 

HEAD BODY 
Half turn left 2 2 
Looking front 3 3 
Looking up 4 4 
Looking down 5 5 
Half turn right 6 6 
The graphics must now be converted to graphic 
strings. The first step is to convert drawings to 
graphics characters. This is done by looking up each 
2X3 character matrix of each drawing inthe graphic 
character chart in appendix C of the Level II Basic 
Reference Manual. Next, enter these graphic 
characters into the initialization subroutine. 

Two methods are shown in the "Arnold the 
Android" program listing. The first method, lines 
24000-24430 use READ/DATA for the graphic 
string definition. This method allows straightforward 
entry by placing the graphic character values into 
DATA statements. (Using this method enter only 
lines 1 0000-24400 and 25280-25520. Change line 
10030 as indicated in the remark in line 10020.) 

The second method uses packed graphics strings. 
This method is more complex to enter since lines 
25040-25260 cannot be directly entered. These lines 
must be entered in the dummy form shown in the 
listing and then modified to their final form. To do this 
proceed as follows: 

Enter lines 30000 to 31 130 (lim* locator and 
graphics packer #2) and lines 25040 to 25260 exactly 
as shown in the listing. 

RUN30000 (line locator) and write down the 
address for each line from 25040 to 25260. 

RUN31000 (graphics packer #2). Using the line 
addresses you just wrote down, enter the graphic 
values from the data statements in lines 24150 to 
24410 of the listing. 

Now enter the remaining lines from the program 
listing (lines 10000 - 25030 and 25270 - 25520) 
After verifying that lines 25040-25260 are correct 
delete lines 30000 - 31 130. Note that lines 25040 - 
25260 cannot be edited. 

The basic activity program, lines 10040-10160, 
has been provided as an example of how to control 
the Android. Using the subroutines provided, the 
Android can be put to use to add some life to your 
programs. 

10000 ' ARNOLD THE ANDROID 
5-APR-80 

BY Gary Sanderson 
10010 CLEAR 400 'CAN BE REMOVED IF PACKED 

STRING VARIABLES ARE USED 
10020 REM For Initialization from DATA 

statements change line # 10030 to 
"GOSUB 24010: CLS" 
10030 GOSUB 25010: CLS 
10040 POKE 16396,23 ' Disable break key 
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Point by Programme: runs on the \ ' ' ". 
TRS-80* Model I in unison with the \ ., 
Electric Pencil** word processing \ 
system. This combination enhances \ 
and literally transforms the original. \^ 

Point is the most powerful word \ 
processor since the $20,000 dedicated \ 
machines. \ 

Point supports all the formats which have made 
Pencil a standard among basic microcomputer 
word processors— line length, page length, 
adjustable margins, line spacing and right- 
hand justification. Then it adds features that 
bring the system alive! Centering, underlining 
and boldface with most printers including 
typewriter-based printers. 

You can actually underline, boldface and center 
all at once. Underline anywhere, even in justified 
text. Boldface with any printer. Add hanging 
indents and outlines as you wish. 

Programma's Point gives you total flexibility. 
Merge disk files with variables from file or 
keyboard. Merge two disk files. Chain disk files. 
And all the while, Point keeps track of proper 
line length, margins and justification. The special 
repeat feature lets you do multiple text printing 
with new values of the variables inserted on 
each pass. And format commands are embedded 
in the text so you can change your output format 
at will. 

Type as fast as humanly possible 
without losing characters —ever! 

Even during wrap-around, Point supports loss- 
free, high-speed entry You can halt, if you like, 
at the end of each page for single sheet insertion. 
While you're typing, you have full upper and 
lower case capability with any lower case mod 
—or none at all. You need no additional control 
key to maintain full Pencil control functions. 
Point keeps you comfortably in command 

"TRS-80 is a trademark of Tandy Corp. 

**Electric Pencil is a trademark of Michael Shrayer Software, Inc 

Circle 




to the screen for operator inter- 
vention to change ribbons, typefaces and other 
housekeeping. 

If you have hardware problems, Point is 
ready. There is a simple warm-start re-entry so 
you can recover files in the event of hardware 
crash or to let you install protectable machine 
language routines in high memory 

If you're basically happy with your Electric 
Pencil— but need a first-cabin word processor— 
the new Programma Point is exactly what you 
want. Move from ordinary limited word process- 
ing to the ultimate easily, quickly. Now available 
at your computer store or use this coupon for fast 
turn-around! An extraordinary bargain at only 
$49.95. 

In California, call Programma at (213) 954-0240. 
Outside California, call toll-free (800) 423-2978. 

J Programma International, Inc. j 
I 2908 N. Naomi Street, Burbank, CA 91504 I 

I HUSH mo the brand now Faoqiamma Poinl sollwaie syslom I 

| Guaranteed to bo fully or >rnpalible with f ilecli if P< .-noil (disk vcisi< >n). | 
Enclosed is $49.95 plus$l.a(] loi handling and poslaqe Caliloi i u. i 

resident:; add $3 sales lax. I I Check enclosed I 

I I 1 Master Charge I 

| or Visa number Lxpiialion dalo ( 

I Signature I 

! Name .. . I 

I 

■ Street Address , 
j City Slate Zip j 

|Q PGOGfiAmfTiA International, Inc. j 

fc.) 1981 Programma Int., Inc 



Graphics Animation 



* TRS-80 * LEVEL II 
846+C,CHR$(143>; s 



10050 ' Draw walkway and roam around 

10060 FOR C-0 TO 318: PRINT@ 704+C,CHR$(191); : 

NEXT C 
10070 POKE 16383,191 
10080 PRINT@910 , "RADIO SHACK 
10090 FOR C=0 TO 32: PRINT @ 

NEXT C 

10100 XI =29: Y-8 : 1=3: J=4: K=4: GOSUB 25430: 

GOSUB 25280 
10110 X2=RND(55)+1: X3«ABS(X1-X2) 
10120 IF X3>20 GOSUB 10140 
10130 GOSUB 25500: GOTO 10110 
10140 FOR C=0 TO 10 

10150 IF RND(4)=2 THEN J=RND( 5)4-1: GOSUB 25430 
10160 IF RND(4)-2 THEN I=RND(7): GOSUB 25430 
10170 FOR H=0 TO 40: NEXT Hi NEXT C 
10200 RETURN 

24000 REM THE FOLLOWING LINES ARE USED FOR 
INITIALIZATION FROM DATA STATEMENTS 
24010 DIM H$(8,1),B$(8,1),F$(8) 
24040 N=*8 

24050 FOR 1=0 TO N: FOR J=0 TO 1: H$(I,J)= M ": 

FOR K=l TO 6 
24060 READ A: H$(I,J)-H$(I,J)+CHR$(A) 
24070 NEXT K: NEXT J: NEXT I 
24080 FOR 1=0 TO N: FOR J-0 TO 1: B$(I ,J)» t,M : 

FOR K-l TO 6 
24090 READ A: B$(I ,J)-B$(I ,J)+CHR$(A) 
24100 NEXT K: NEXT J: NEXT I 
24110 N»8 

24120 FOR 1=0 TO N: F$(I)= Mra : FOR K»l TO 6 

24130 READ A: F$(I)«F$(I)-fCHR$(A) 

24140 NEXT K: NEXT I 

24150 DATA 128,128,181,176,176,128, 

128,142,174,191,159,133 
24160 DATA 128,170,176,176,144,128, 

136,141,191,191,143,128 
24170 DATA 128,170,176,181,144,128, 

128,141,179,190,143,128 
24180 DATA 128,160,181,186,144,128, 

128,143,182,185,143,128 
24190 DATA 128,160,164,152,144,128, 

128,143,189,190,143,128 
24200 DATA 128,160,180,184,144,128, 

128,143,155,167,143,128 
24210 DATA 123,160,186,176,149,128, 

128,143,189,179,142,128 
24220 DATA 128,160,176,176,149,128, 

128,143,191,191,142,132 
24230 DATA 128,176,176,186,128,128, 

138,175,191,157,141,128 
24240 DATA 128,168,191,191,191,128, 

136,135,170,191,159,128 
24250 DATA 128,190,191,191,149,128, 

142,129,191,191,133,128 
24260 DATA 168,151,183,191,171,148, 

186,133,159,175,186,133 
24270 DATA 184,135,183,187,139,180, 

130,173,159,175,158,129 
24280 DATA 168,151,183,187,171,148, 

138,181,159,175,186,133 
24290 DATA 168,151,183,187,171,148, 

186,133,159,175,138,181 



24300 

24310 

24320 

24330 
24340 
24350 
24360 
24370 
24380 
24390 
24400 
24410 
24420 
24430 
25000 



DATA 168,151 
138,181 
DATA 128,170 
128,138 
DATA 128,191 
128,175 
DATA 128,176 
DATA 128,176 
DATA 128,128 
DATA 128,176 
DATA 128,176 
DATA 128,128 
DATA 128,128 
DATA 128,128 
DATA 128,182 
RETURN 
REMo . . . . 
REM® . . . . 



,191,187, 
,159,175, 
,191,191, 
,191,191, 
,191,191, 
,191,149, 
,150,160, 
,181,186, 
,176,191, 
,166,185, 
,149,170, 
,182,153, 
,191,176, 
,181,186, 
,144,169, 



171,148, 

138,181 

189,128, 

138,181 

148,128, 

175,144 

185,128 

128,128 

128,128 

128,128 

176,128 

176,128 

128,128 

176,128 

176,128 



For initialization with packed strings, 
use lines 25010-25170 and change line 
# 10030 to read "GOSUB 25010: CLS" 
25010 REM LINES 25040-25260 MUST BE ENTERED 
EXACTLY AS SHOWN . THE LINE LOCATOR AND 
GRAPHICS PACKER #2 MUST BE USED AS 
DESCRIBED IN THE ARTICLE. USE THE DATA 
FROM THE ABOVE DATA STATEMENTS 



25030 
25040 
25050 
25060 
25070 
25080 
25090 
25100 
25110 
25120 
25130 
25140 
25150 
25160 
25170 
25180 
25190 
25200 
25210 
25220 
25230 
25240 
25250 
25260 
25270 



DIM H$ 

H$(0,0 

H$(1,0 

H$(2,0 

H$(3,0 

H$(4,0 

H$(5,0 

H$(6,0 

H$(7,0 

H$(8,0 

B$(0,0 

B$(1,0 

B$(2,0 

B$(3,0 

B$(4,0 

B$(5,0 

B$(6,0 

B$(7,0 

B$(8,0 

F$(0) 

F$(2) 

F$(4) 

F$(6) 

F$(8) 

RETURN 



(8,1),B$(8,1),F$(9 




)= "ABCDEF": 


H$(0,1 


)= "ABCDEF" 


)="ABCDEF" : 


H$(l,l 


)= "ABCDEF" 


)="ABCDEF" : 


H$(2,l, 


)= "ABCDEF" 


)= "ABCDEF" : 


H$(3,l. 


)= "ABCDEF" 


)="ABCDEF" : 


h$(4,i; 


>= "ABCDEF" 


)="ABCDEF" : 


h$(5,i; 


)- "ABCDEF" 


)="ABCDEF": 


H$(6,i: 


1= "ABCDEF" 


)="ABCDEF" : 


H$(7,i: 


)= "ABCDEF" 


»= "ABCDEF": 


H$(8,i: 


= "ABCDEF" 


)= "ABCDEF" : 


B$(0,1; 


= "ABCDEF" 


="ABCDEF": 


b$(i,i: 


= "ABCDEF" 


>= "ABCDEF" : 


B$(2,i: 


= "ABCDEF" 


= "ABCDEF": 


B$(3 S 1) 


= "ABCDEF" 


="ABCDEF" : 


B$(4 S 1) 


= "ABCDEF" 


= "ABCDEF" : 


B$(5,l) 


= "ABCDEF" 


= "ABCDEF" : 


B$(6,l) 


= "ABCDEF" 


= "ABCDEF": 


B$(7 S 1) 


» "ABCDEF" 


="ABCDEF" : 


B$(8,l) 


= "ABCDEF" 


= "ABCDEF": 


F$(l) 


= "ABCDEF" 


= "ABCDEF" : 


F$(3) 


= "ABCDEF" 


= "ABCDEF " : 


F$(5) 


= "ABCDEF" 


= "ABCDEF": 


F$(7) 


= "ABCDEF" 


= "ABCDEF": 


DUMMYSS 


- "ABCDEF" 



25280 ' 

Wait some 
25290 FOR W=0 TO 30: NEXT W: RETURN 
25300 ' 

Turn front to left 
25310 1=2: J=2: K=l: GOSUB 25430: GOSUB 25280 

1=0: J=0: K=0: GOSUB 25430: RETURN 
25320 " 

Walk left ( Xl=start, X2=end, Y=line ) 
25330 1=0: J=0: K=0: GOSUB 25430: 

1=1: J=l: K=l: GOSUB 25430: X1=X1-1: 
1=0: J=0: K=2: GOSUB 25430: 
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1=1: J=l: K=3: GOSUB 25430: X1=X1-1: 
IF X1>X2 GOTO 25320 ELSE RETURN 



25340 ' 

Turn left to front 
25350 1=2: J=2: K=l : GOSUB 25430: 

1=3: J=4: K=4: GOSUB 25430: 

RETURN 
25360 " 

Turn front to right 
25370 1=6: J=6: K=7: 

1=8: J=8: K=8: 

RETURN 
25380 ' 

Walk right 
25390 1=8: J=8: K=8: 
1=7: J=7 : K=7: 
1=8: J=8: K=6: 
1=7: J=7: K=5 : 



GOSUB 25280: 
GOSUB 25280; 



GOSUB 25430: GOSUB 25280; 
GOSUB 25430: GOSUB 25280; 



GOSUB 25430 
GOSUB 25430 
GOSUB 25430 
GOSUB 25430 



X1=X1+1: 



Xl-Xl+1 ; 



IF X1<X2 GOTO 25380 ELSE RETURN 
25400 ' 

Turn rignt to front 
25410 1=6: J=6: K=7: GOSUB 25430: GOSUB 25280 

1=3: J=4: K=4: GOSUB 25430: RETURN 
25420 ' 

'Display ANDRIOD 
"I - head , J - body, K for feet 
25430 L«X1+Y*64: 
PRINTS L s H$(I s 0); : PRINT0 L+ 64,H$(I,1); ; 
PRINTS L+128,B$(J,0); : PRINT? L+192 S B$ (J , 1 ) ; s 
PRINTS L+256,F$(K); : RETURN 
25480 ' 

25490 ' Determine direction and move. 
25500 IF X1<X2 GOTO 25520 

25510 GOSUB 25300: GOSUB 25320: GOSUB 25340: 
RETURN 

25520 GOSUB 25360: GOSUB 25380: GOSUB 25400: 
RETURN 

30000 REM. ......... 

LINE LOCATOR 
30010 C=PEEK( 16548) + PEEK( 16549) * 256 
30020 N=PEEK(C+0)+(PEEK(G+l )*256) 
30030 M-PEEK(C+2)+(PEEK(C+3)*256) 
30040 PRINT "LINE #";M, "MEMORY ADDRESS -";C; 
30050 C=N: INPUT X: GOTO 30020 



'ABCDEF' 
"ABCDEF* 

*** 



31000 REM. o . . . . . . 

GRAPHICS PACKER #2 
31010 ' STRING FORMAT : 

A$ (N ,M)="ABCDEF" : 
OR: A$(N) = "ABCDEF": 
*** EXACT SPACING IS 
31020 INPUT "LINE ADDRESS 
31030 FOR J=13 TO 18 

31040 X=PEEK(S+J): PRINT "NOW - "; CHR$(X) S X, ; 
31050 INPUT "GRAPHICS VALUE 
31060 POKE S+J S X 
31070 NEXT J 
31080 FOR J=31 TO 36 
31090 X=PEEK(S-hJ): PRINT "NOW • 
31100 INPUT "GRAPHICS VALUE ";X 
31110 POKE S+J,X 
31120 NEXT J 
31130 GOTO 31020 



: A$(W,Z)= 
; A$(W) = 
IMPORTANT 

";s 



'?x 



';CHR$(X),X,; 
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# BWBS CRIFT 5.Q f.79,95 

With our software, your TRS-8C>"Model I ov III 
and LINE PRINTER IV or CENTRONICS." £37 can easily 
produce right-justified, proportional spaced 
documents with this typeset look. 

EPSON Tyl DC — SO owners can underline and use all 
1 12. fonts with this professional quality software. 

With 5ELECTRIC5"and most other printers, you can 
take advantage of our 10 0+ pages of excellent 
documentation and 90+ functions, including! 

multiple top and bottom titles 
line split, join, and duplicate 
global search and change 
visible control words 
very large documents 



block move and copy 
right-justification 
table of contents 
form letters 
underlining 
centering 
autosave 
index 



super index printers 

scripts (some r 

and .scripts 

sub r 

Version 5.0 incorporates all features of our earlier 
PROP, SUBEDIT, SUBSCRIPT, and MININIT components, 
and adds several user-requested new features, It is based 
on IBM's highly-regarded CMS Time-Sharing system, so if 
you've been lopking for "mainframe" quality Word 
Processing, you've just found it. 



Iff DVORAK! 

Keyboard translator with press-on labels! 
Typing Tutor (requires a translator)! 
Special! Both DVORAK programs! 



* FASTER 




$19.95 
$19.95 
$34.95 



Analyses executing BASIC programs, then identifies a 
simple program change to improve their execution speed. 
NO hardware changes are involved, works with packages 
as well as your own code and can reduce run-times by 
1 O — 50%, Example! "move selection" in "Othello" 
dropped from 48 to 32 seconds, This will be one of your 
most valuable utilities' 

# QUICK COM PRESS $19,95 

Makes many Model I BASIC programs faster and 
30-60% smaller by removing blanks and selected remarks 
at your option. Processes S00 multi-statement lines in 3 
seconds, needs only 270 bytes. 



014,95 



Quickly upgrades Model I 35-track disks to 40 tracks 
with your 40-track drives and Operating System. 

QRDERIMG 



Models I and III, tape or disk! 
Models I and III, 32-48K disk! 
Model I! 



FASTER, DVORAK 
SUBSCRIPT 

COMPRESS, XTEND40 



Tape versions run on 16-48K Level II, Disk versions run 
with TRSDOS"2.3, NEWDOS, NEWDOS/30", and Model III 
TRSDOS 1,1 £; up. 

Please add $3.00 for postage & handling, and 6% tax in 
Calif. Checks, C.O.D.'s ok. 
Spring Special! We pay handling on orders over $25.00. 

BONUS! Model I orders over $50.00 will include a 
diskette "re-Iabeller" program FREE! Circle 36 



J 



@News 




By Jim Perry 



A few years ago I never dreamed that I would earn my living 
having fun with a TRS-80. If I can do it so can you! There are 
lots of ways of getting cash from your TRS-80, the main thing 
is to actually do it - and not procrastinate. 

I get rny income mainly from writing TRS-80 related 
material, with a bit of editing and consulting work as well. A 
couple of years ago my background in printing and 
publishing led me into the frozen wastes of New 
Hampshire, and the Wayne Green empire. I became the 
founding editor of 80 Microcomputing and then left to live 
in sunny Southern California, making a pleasant living with 
my TRS-80. 

You don't have to be a literary genius to earn money writing 
(although it doesn't do any harm). The main things to 
concentrate on are interest and clarity • don't blind people 
with buzzwords and jargon, or bore them to tears. 

Another way of earning cash with your computer is to sell 
programs. There are dozens of software publishing 
companys, all looking for good software on a royalty basis, or 
you can try and become your own publisher. If you have 
written some good software that uses the Stringy Floppy then 
Exatron may be interested in publishing it for you. 

Currently Exatron has two methods of publishing software, 
the first being a standard 20 percent royalty arrangement, the 
second being the Exatron Stringy Floppy Owners Association 
Library. The library arrangement is a bit like roulette, if a 
program is selected for the Wafer Of the Month you get a 
$500.00 equipment credit, but unlike roulette you always get 
at least a $9.95 credit - if your program is accepted into the 
library. Library programs are given away for the cost of the 
wafer and duplication, just like in most other user groups. 
Programs published by Exatron on a royalty basis are sold on 
a wafer, and you can usually sell them on cassette or disk 
through another publisher. 

No matter how you decide to promote your programs you 
have to provide documentation. As Michael Commendul (my 
successor at 80 Microcomputing) once pointed out, English is 
a difficult second language for most programmers, hence the 
terrible standard of documentation for most programs. 
Remember that there are upwards of 300,000 TRS-80 users, 
and of the thousands of programs being submitted to 
publishers only about 5 percent ever make it. The other 95 
percent are usually rejected because of poor documentation, 
or even a complete absence of documentation! Just think 
how annoyed you would be if you bought a jigsaw puzzle, and 
the picture was missing! 

If you would like further details about the Exatron library, or 
royalty publishing arrangements, send a business size SASE 
to Bill Burnham at Exatron, 181 Commercial Street, 
Sunnyvale, CA 94086. 

A third method of cashing in on your computer is to sell 
Stringy Floppies. To do this you need to become a Program 
Chairman (or woman), and act as a liason between Exatron 
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This page top: John Onemos (left) and Fred Waters chair a 
Saturday morning workshop. Bottom: Between 30 and 40 
users turn up every week, some say that they actually look 

forward to the meetings! 

Opposite page, top left: Your friendly author props up a 
doorway while he wakes up, center is Ron Engdahl 
workshop coordinator at Exatron. Last, but by no means 
least, is Bob Howell Snr (inventor ofthe Stringy Floppy and 
chairman of Exatron). Top right, a typical programmers 
den at Exatron (look familiar?), this one belongs to Jim 
Maynard , who is said to dream in assembly language. 
Bottom, Exatron World Headquarters, drop in and see 
them sometime. 



and potential buyers in your area. Several thousand of you 
now own Stringys, most of you bought them after reading 
about them in magazines. However a lot of potential owners 
want to actually see and use a Stringy before buying one, this 
is where you can come in to the picture. 

Exatron gets hundreds of reader enquiries every month from 
its magazine advertising, and wants owners like you to 
arrange local demonstrations. In my own experience 
demonstrating Stringy Floppies is like selling water in the 
Sahara - everyone buys. The product is unique, and excellent. 
Anyone who still uses cassette can't believe their eyes when 
they see the Stringy whirr into action, at half the cost of 
upgrading to disks. A lot of people (myself included) use both 
Stringy Floppy and disk at the same time. So if you would like 
to find out more about demonstrating Stringy Floppies send a 
SASE to Ron Engdahl at Exatron. 



Weekly Workshops 

If you are in the Sunnyvale area, any Saturday morning, drop 
into the Owners Association Workshop held at the Exatron 
factory. The photographs on this page were taken during a 
recent gathering, anywhere from 30 to 50 people attend from 
9.00am until lunch time. You don't have to be a member or 
owner to turn up, and admission is absolutely free (so is the 
coffee). 

The meetings are usually chaired by John Onemos and Fred 
Waters (the ESFOA secretary), and have guest speakers plus 
a general question and answer session. Demonstrations for 
the curious take place at the end of the meeting, with no high 
pressure selling (of course you can buy a Stringy or software if 
you want to!). 




Photographs by John Barry. 



If you are interested in starting a workshop in your area then 
contact Fred Waters or Ron Engdahl at Exatron, and they will 
help get you started. It's a very pleasant and rewarding 
experience, you meet all sorts of interesting people - doing all 
sorts of odd things with their Stringys. If you are using your 
Stringy in a novel project then drop me aline and I'll make you 
famous by writing about you in a future @NEWS. 



New ROMs For Old 

If your Stringy is getting on a bit, and has the old 3.2 (or even 
3.1 ) EPROM still in it, then it's about time you upgraded to the 
current 4.1 ROM. To get your Stringy brought upto date the 
EPROM and anothercomponent need replacement. The cost 
of the upgrade is a nominal $25.00, which includes giving 
your unit a thorough 'wash & brush-up' service. All units 
returned to Exatron, for this upgrade, will be processed and 
dispatched back to you within 5 days of arrival at Exatron. So 
you won't be without your unit for very long, suffering with 
cassettes. 

The 4.1 operating system is far superior to the 3.2, and some 
software written for 4.1 will not work reliably on the older 
versions. Don't delay, upgrade today! 

Where is Randy Burt? 

Somewhere in America is a frustrated TRS-80 user by the 
name of Randy Burt. He's frustrated because he is waiting for 
his Stringy Floppy and some software. Exatron are frustrated 
because they cashed his check, and then realized that he did 
not put his address on his order. So if you are Randy, or know 
him, please call Ruth Howell on the Hotline (800 538 8559) 
andtell heryouraddress(plus how much yourcheck was for). 
Moral of this story, always put your address on any mail order - 
don't rely on your printed check, because most companies 
seperate the check and order. 



One of the more active ESFOA members, who prefers to be 
known by the name 'Wee Willy', has penned a theme song for 
use at official functions - I print it without further comment, 
except that he didn't tell me what tune goes with it! 

Hail to ESFOA here we are; 

We'll he true whether near or far; 

No more cassette corders will we use; 

We'll @SAVE our programs and @LOAD them too! 

We love our Stringy Floppies, they're for us; 
No more volume settings 'n all that fuss; 
Our headaches and heartbreaks now are few; 
Just throw in a wafer and give it @NEW! 

So here's to EXATRON our mentor true; 
They gave us Stringy and the RS232; 
Our software oh ... it's a delight to run; 
Thanks to EXATRON computers are fun. 



Slow Disk Software 

The standard Stringy Floppy operates like an extremely fast, 
and reliable, cassette system. Wouldn't it be nice to make it 
operate like a slow disk system? Tom Wheeler, from Missouri, 
has released an enhancement to BASIC that does just that. 
Called ESF BASIC 1.4, the software gives you the ability to 
name programs, writes a directory file on each wafer and 
generally makes the Stringy behave like a slow disk. Costing 
only $25.00, direct from Exatron, this software opens up lots 
of interesting possibilities. I'll have an indepth review in the 
next ©NEWS. 



Son of Visicalc 

Any serious user of a microcomputer needs two types of 
program; a word processor (such as Electric Pencil; and a 
number processor ( Visicalc from Personal Software being 
excellent). Now there is a rival to Visicalc, written by Dan 
Haney, called Electric Spreadsheet. Written in BASIC (you 
don't have to write in assembly language to be fast), it comes 
with a 50 page manual and allows you to process numbers in 
dozens of ways. I've been using it for about 2 weeks and will 
include a complete review in my next column. If you don't 
want to wait, it's available now for $49.95 direct from Exatron. 

Inflation Strikes 

For those of you that have been thinking of buying a Stringy 
Floppy, but kept putting it off, I have some bad news - on April 
1 st the price of a starter kit went up to $349.50 (plus shipping 
and tax). However do not despair, the starter kit contents have 
also gone up! The new improved starter kit contains much 
more software and a trial subscription to @LOAD (a wafer 
based magazine), plus a $16.00 credit towards your 80-US 
Journal subscription. 



Next Issue 

Well I hope you found my debut column interesting; future 
columns will include detailed software reviews, feedback 
from you (please!), details on new workshops and anything 
else that I think you'll find useful and informative. 

Feel free to write to me at @NEWS, 1016 W Pine Street, 
Upland, CA 91786. I look forward to hearing from you. 

If you have any questions about Exatron, the Exatron Stringy 
Floppy or the Exatron Stringy Floppy Owners Association, 
please callthe Exatron Hotline 800-538 8559 or in California 
408-737 7111. • 
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A SoftSide Publication 



Guide to Level II BASIC 
and DOS Source Code 

Description of the contents of the Level II BASIC ROM by 
memory locations, by function, and in lesson format. Includes 
several BASIC and Assembly Language programs in listing 
format to examine and use ROM routines. 




by Phelps Gates 



Now a high-level, scientific programming language for the home computer that doesn't cost $200 or $300. The power 
of this language is in its strong mathematical operations, especially with regard to matrices and vectors. Programs re- 
quiring matrix multiplication or other matrix problem solving that would require hours of programming time in BASIC 
are solved quickly and with minimal effort in APL. 

To aid in learning APL, lessons are included on the disk. Starting from the basics, you are brought step by step 
through the various programming techniques involved with APL. These lessons act as a tutor which will have you "talk- 
ing APL" in no time. Also available is the book, "APL: An Interactive Approach," which reinforces many of the examples 
given in the lessons and provides additional insight into APL programming. 



FEATURES 

APL-80 on disk contains the following features: )SAVE and )LOAD workspace on disk; )COPY other workspaces into 
current ones; Return to DOS for directory or commands without losing your workspace; Send output to lineprinter; Five 
workspaces of lessons included; Sequential and random files; 15 digit precision; Monadic and dyadic transposition; 
Easy editing within FUNCTION lines; Latent expression (FUNCTION can "come up running"when loaded); Tracing of 
function execution; Real-time clock; User-control of random link; Workspace is 25587 bytes (in 48K machine); Arrays 
may have up to 63 dimensions. 

COMMANDS APL-80 

APL-80 supports the following commands; Absolute value, add, and, assign, branch, catenate, ceiling, chr$/asc, cir- 
cular, combinatorial, comment, compress, deal, decode, divide, drop, encode, equal, expand, exponential, factorial, 
floor, format, grade down, grade up, greater, greater/equal, index generator, indexing, index of, inner product, label, 
less, less/equal, logarithm, maximum, member, minimum, multiply, nand, negate, nor, not, not equal, or, outer product, 
peek, poke, quad, quote quad, random, ravel, reciprocal, reduction, reshape, residue, reverse, rotate, scan, shape, sign, 
system, subtract, take, transposition. 

SPECIFICATIONS 

Minimum system requirements: 32K disk system (48K recommended) includes APL-80, Five workshapes of lessons, 
instruction manual. 

Price $39.95 on disk 

Reduced feature: 16K Level II tape version, no lessons. 
Transpositions, format, and inner product not implemented. Reduced domain for some functions, 6 digit accuracy. 

Price $14.95 on cassette 

APL: An Interactive Approach 

Price $16.95 ($3.00 shipping charge) 



LIMITATIONS 

Due to the absence of the special APL character set on the TRS-80TM, APL-80 uses shifted letters to represent the various APL characters. 

In addition to the keyboard limitations, lamination, domino, and matrix Inverse are not implemented but can be derived with user-defined functions. 

Multiple specifications must be split into two statements unless the left hand assignment Is to a quad. This also applies to Implied multiple specifications. 

Reduction and reshape (p) are not permitted for empty arguments; the argument of add/drop may not be scalar; empty indices are not permitted. 

A quad (q) can't be typed In response to a quad (nor can the name of a function which Itself gets input from a quad). Quote-quad (m) Is permitted. 

No more than 32 user functions can be defined in a single workspace and a function may not contain more than 255 lines. 

A comment (c) must occupy a separate line: a comment can't follow a function statement on the same line. 

In the tape version, arrays are limited to five (5) dimensions. 





6 South St., Milford, N.H. 03055 

ORDER TOLL FREE: 1-800-258-1790 

(in NH call 673-5144) 




TRS-80 Model II 64K RAM (#26-4002) $3599.00 

TRS-80 Model III, 16K RAM (#26-1062) $919.00 

TRS-80 Model II, 48K RAM (#26-1062+). . . . $1039.00 
TRS-80 Mod. Ill 48K RS232 2-dr. (#26-1063)$2299.00 
TRS-80 Pocket Comp. w/ Interface (#26-3501 +). $259 

TRS-80 Video Tex (#26-5000) $359.00 

TRS-80 Color Computer, 4K RAM (#26-3001 ) . $359.00 
TRS-80 Color Comp. 16K RAM (#26-3001 +) .$399.00 
TRS-80 Color Comp. Ext. BASIC (#26 -3002) . . $529.00 



COLOi 

CQIIPUTER 

$S5S 




SiODES i DISK DRiWES 

HARDSIDE 40 -track Drive (#7-40) $329.00 

PERCOM TFD-40 Drive (§7-99) $379.00 

PERCOM TFD-100 Drive (# 7-100-1) $399.00 

HARDSIDE 80-track Drive (#7-80) $449.00 

PERCOM Dual TFD-100 Drives (#7-100-2). . . . $799.00 

PERCOM Data Separator (#7-03) $29.95 

PERCOM Doubler (#7-07) $199.95 

HARDSIDE Extender Cable (#7-02) $15.95 

HARDSIDE 2-Drive Cable (#7-04) $29.00 

HARDSIDE 4-Drive Cabie (#7-05) $39.00 



6 South St .Milford, NH 03055 (603)673-5144 

DLL I REE OUT-C F-Sl §0 I 1-800-25^1790 




10IEL ! PERIPHERALS 

COMM-80 Interface (#4-80) $159.00 

CHATTERBOX Interface (#4-81) $239.00 

Disk-80 Interface, 16K RAM (#4-82) $339.00 

DISK-80+ Interface, 16K RAM (#4-83) $369.00 

BUSY BOX Interface (#4-01) $99.95 

LYNX Communications Interface (#19-80) . . . $229.00 
RS Exp. Interface, 32K RAM (#26-1 140-32) . . $399.00 
16K Memory Kit, TRS-keyboard (15-1102-1) . . $59.00 
16K Memory Kit, TRS- Interface (15-1102) .... $59.00 

ORCHESTRA-80 (#15-03) $79.95 

Upper/Lower Modification Kit (#15-02) $24.95 

CPU Speed-up Modification kit (#15-04) $37.50 

Video Reverse Modification kit (#15-05) $23.95 

2- port TRS-BUS Extender (#15-12) $29.95 

3- portTRS-BUS Extender (#15-13) $39.95 

TRS-80 Model I Dust Cover Set (11 6-01 ) $7.95 

TRS-80 Model I Carrying Case (#7-201) $109.00 

TRS-80 Monitor Carrying Case (#17-202) $84.00 

Dual Joysticks for Color Computer (#26-3008) . $24.95 
VISTA Model II 8" Disk Drive 1 (#7-4001 ) . . . . $939.00 
VISTA Model II 8" Disk Drive, 3(#7-4002) . . $1795.00 
CTR-80A Cassette Recorder & Cable (#26-1206)$59.95 

TRS-80 Model III Dust Cover (#16-05) $7.95 

TRS-80 Color Dust Cover (#16-06) $7.95 




TERMS: Prices and specifications are subject to change. HARDSIDE accepts VISA & 
MASTERCARD Certified checks and Money Orders. Personals checks accepted (takes 3 
weeks to clear). HARDSIDE pay all shipping charges (within the 48 states) on all PREPAID 
orders OVER $100.00 On all orders under $100 a $2.50 handling charge must be added. 
COD orders accepted (orders over $250 require 25% deposit), there Is a $5.00 handling 
charge. UPS Blue Label, and Air Freight available at extra cost. TRS-80 is a trademark of 
Tandy Corp. 
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How many times have you wished that there was a single s 
your personal computer needs? Well look no furth 
HARDSIDE, located in pleasant New Hampshire, has virtue 
conceivable item for your micro. Whether you're shopping 
Apple, Pet, TRS-80 or Atari, TSE-HARDSIDE has it all. V 
hardware, software, books, magazines and specialty items 
the popular machines. So the next time you're out shopping 
system don't be surprised, be satisfied. Remember the na 
HARDSIDE as your choice for quality, service and reliabi 
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6 South St , Milford, NH 03055 
TOLL FREE OUT-OF-STATE 



(603)673-514-4 
1-800-258-1790 
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RS Plotter/Printer (26-1190) $1339.00 

RS Quick Printer II (26-1 1 55) $209.00 

TYPRINTER 221 (9-221) $2595.00 

VISTA 25-cps Daisy Wheel (9-4000) $1795.00 

NEC 5510 SpinWriter (9-5520) $3095.00 

NEC 5530 SpinWriter (9-5530) $2595.00 

EATON-LRC 7000 + (9-7000-64) $279.00 

© CENTRONICS 730 (9-730) $659.00 

CENTRONICS 737 (9-737; $769.00 

OKI DATA Microline-80 (9-80) $499.00 

(D OKI DATA Microline-82 (9-82) $669.00 

(3) OKI DATA Microline-83 (9-83) $999.00 

OKI DATA SL300 (300 1pm) (9-SL300) $3795.00 

EPSON MX-70 (9-MX70) $449.00 

EPSON MX-80 (9-MX80) $519.00 



















// 



NEC Tractor-Feed Option (9-5000) $229.00 

BDT Sheet-Feeder (NEC only) 0ption(9-5005) $1849.00 
Microline-80 or 82 Tractor-feed Option (9-80-T) $1 29.95 
Centronics Zip-Pack Ribbons (3-pack) . (21-01) $15.95 
SpinWriter Multi-Strike Ribbons (3) . . . (21-02) $18.95 

Microline Printer Ribbon (3-pack) (21-04) $12.95 

LRC Printer Ribbons (3-pack) (21-03) $6.95 

EPSON Printer Ribbons (2-pack) (21-05) $25.95 




RS MOD-I Printer (36-pin) Int. Cable (26-1411 
RS MOD-I Printer (40-pin) Int. Cable (26-1416 
RS MOD-I & III Printer (36-pin) Cable (26-1401 
RS MOD-I & III Printer (40-pin) Cable (26-141 5 

RS MOD-I & III LRC Printer Cable (9-10 

APPLE Parallel Int. & Cable (36-pin) . (47-936) 5 
APPLE Parallel Int. & Cable (40-pin) . (47-940) 3 

APPLE LRC Interface & Cable (47-LRC) 3 

APPLE Asynchronous RS-232C Int (47-771 OA) $ 
ATARI-Macrotronics Print. (36-pin) lnt(36-936) 
ATARI-Macrotronics Print. (40-pin) lnt(36-940) 



$59.00 
$59.00 
$29.00 
$29.00 
$29.00 
100.00 
100.00 
100.00 
159.00 
$69.95 
$69.95 
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6 South St .Milford, NH 03055 (603)673-5144 

TOLL FREE OUT-OF-STATE 1 -800-258-1 780 




TERMS: Prices and specifications are subject to change HARDSIOE accepts VISA & 
MASTERCARD. Certified checks and Money Orders, Personal checks accepted (takes 3 
weeks to clear). HARDSIDE pays all shipping charges (within 48 states) on all PREPAID 
orders over $100.00. On all orders under $100,00 a $2.50 handling charge must be added 
COD orders accepted (orders over $250 require 25% deposit) there is a $5.00 handling 
charge UPS Blue Label, Air Freight available at extra cost 
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Discover our exciting world of microcomputing by reading SoftSide Magazine, the monthly that helps 
you learn to use your S-80 based system more effectively and enjoyably. In SoftSide, you'll read helpful 
programming hints, follow regular columns by such well-known authors as Scott Adams, and explore the 
wide range of S-80 compatible software and hardware. 

The focus of SoftSide is lots of entertaining software — great games, simulations, and educational 
programs all ready to type right into your computer, each one fully documented and carefully explained. 
Every month you'll find at least three programs for the S-80. The value of these programs is impressive — 
one reader told us that he estimates the value of the S-80 software in SoftSide at $18 per issue! 

SoftSide isn't for everyone. We're looking for the kind of reader who feels challenged by tackling all 
kinds of programs, long or short, and is rewarded with consistently fine graphics, great adventures and 
simulations, and arcade games that don't lose their appeal after one play. 

If you're the kind of person who ought to be reading SoftSide, take advantage of our special offer while 
it lasts -- 13 issues for the price of 12 (you must order with the coupon in this ad or a photocopy). For a 
small admission price, you can become a part of SoftSide's world of microcomputing! 




Name 



Address — 

City , State Zip 

SoftSide Publications 6 South Street, Milford, New Hampshire M181 
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The 1 5th in a series. 



A while back (Nov/ Dec 1979 80.U.S.- 
Journal) I did a column on machine 
language program relocation. Here is 
another column on the same subject. 

"Why make such a big deal out of it?", 
you ask. Well, as you know, the Radio 
Shack assembler is an absolute assembler. 
You have to decide at assembly time where 
in memory you want your program to 
reside. That means that if two programs are 
targeted to the same area, one will have to 
be reassembled not to conflict with the 
other. Once this is accomplished, you then 
have two (or more) non-conflicting and 
separate modules to load, one at a time. 
This can be tedious, time after time. Of 
course you could assemble them all 
together into one object file. But then 
everything has to be reassembled just to 
modify one routine. 

Is all this juggling really necessary? Not 
at all. My original column on the subject 
showed a way to relocate a program in 
memory after loading it. This column 
carries the process a step further. The 
technique presented here allows you to 
merge already assembled object code into 
one program. This program will then load 
under Basic from tapeordisk. Runing it will 
relocate each module therein and activate 
its startup code (for linking the keyboard, 
etc.). The program also contains the means 
for loading additional Editor/Assembler 
SYSTEM tapes and merging them with 
those extant. This loader converts the 
modules into Basic REMARK statements 
which may later be deleted like any other 
Basic statement. 

The program which does all this (Omni- 
Load) is listed in Figure 1. Enter it under 
Level II or Disk Basic exactly as shown. 
Make no omissions or changes, and double 
check everything. Admittedly, this will be 
an awesome typing task. But getting this 
core of routines into the form shown in 
Figure 1 required an even tougher process 
bordering on trial and error. So concentrate 
on accuracy and use an expendable disk for 
the first few runs. 

Once you have the beast typed \n,and 
SAVED or CSAVED, run it. If it bombs 
completely, recheck the Basic code and the 
values in the DATA statements. If the 
message FD (or Bad File Data) IN nnnn 




appears, check the hex values in the 
remark statements. If the screen clears and 
the READY prompt appears at the top, you 
are ready for phase two. 



Phil Pilgrim 
Discovery Bay Software Co. 
Port Townsend, Washington 



on, whenever Omni-Load is run, you will 
have an auto-repeating keyboard. But first, 
let's look at the program. 

There are several key elements essential 
to any module written for Omni-Load. 
Those elements are marked with asterisks 
(*) in Figure 2. The first is the ORGO. 
Following this is a two byte word equal to 
the Basic line number where the module 
should begin. Omni-Load will convert the 
program to a series of remark statements 



Look at the program in Figure 2. This is a 
routine for adding, auto repeat to the 
keyboard (i.e., hold a key down, and after a 
short delay it repeats about eight times per 
second). You will be loading this program 
into Omni-Load and saving it. From then 

Figure 1 

10 DIMP% (141) :GOSUB60000 
20 P% (0) =1000; PRINT 

30 ' (C) COPYRIGHT 1980 DISCOVERY BAY SOFTWARE CO. 

100 DATA0, 0,11005, 16414, 26365, -513, -402, 7714, 10816, 1655 
1,-32767,2304,11001,16561,8739,16614,22269,-515,-930, 
11469,24603,361,245,2557,-6659,8995,12926,16546,32291 
,-23758,9024,-386 

101 DATA-15725, 1740, 14, -7389, 3277, 18176, 3277, 22272, 3277 
,24320,3277,-18688,18464,10973,16614,6621,8368,-8942, 
-7195,-6622,-4800,-677,-8384,12513,7694,6156,-13030,1 
2,30685,-8960,4131,-12810 

102 DATA12, -18567, 1824,-16669,8227,6396,7845,-10966,-63 
67,4358,16405,6145,-4864,-12880,457,-15407,6562,3277, 
-7424,-18567,-7392,23533,16614,10973,16614,485,5,2525 
,32477,-18688,10311,-8940 

103 DATA-8925, 110, 9181, 26333, 6400, -31874, 9079, -30082, 42 
15,-8724,-6614,-8896,110,26333,31745,10421,6404,3277, 
-8960,-6614,-8896,606,22237,-8957,-8935,-6622,-7872,6 
319,-626,-7199,-10626,-464 

104 DATA14346,-10750,8967, 1799, 1799,-10618,-13520, 10358 
,-10750,8967,-2589,20353,-527,20457 

1000 REM0 0FFDB0 026 

1001 REM250000000900160000011000002A1640221B40211600221 
640C9CDE303FE1AC03A0838E604C83E1AC95E 

1002 REM00000001FF 

50000 REM00FFB00051 

50001 REM4000000013002C00000617001D0026002D0046004B0000 
2A16402238002A1B40223300214B49221B40212C00221640C93A4 
F00B72005CD00001803CD0000FE01C03A803824 

50002 REM10004000A720023CC93A4F00EE01324F00AFC90170 

50003 REM00000001FF 
56000 REM00FFBB0046 
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Rochester Data's patented* Computer/Typewriter 

nterface is the industry standard for typewriter output. 

B 2 minutes to initially install and 5 seconds to remove or replace. 

• You do not have to modify your typewriter. All factory war- 
ranties and maintenance agreements on your typewriter will be 
honored. 

• Compatible with all power carriage return typewriters having 
standard U.S. keyboard. The Dynatyper works with Selectrics 
(model 1) and most non-Selectrics (model 2). Please specify. 
Typewriter conversion between models takes 2 minutes and the kit 
(1 7 plungers) is available for a nominal fee. 

• The Dynatyper is compatible with all major word processing software. 
(Scripsit, Pencil, Applewriter, Easywriter, Magic Window, Visi-calc 
CCADBM, Supertext, Write On) 

§ Interfaces available for TRS-80, APPLE, PET/CBM, OSI, Northstar, 
HP-85, H-89. Weighs only 3 lbs. Extremely portable. 

• Delivery: Stock to two weeks. Price $499 for complete system. 
F.O.B. Rochester, Domestic. VISA and Master Card accepted. 
Call Ken Yanicky at 716-244-7804 



Pat. Pending 




incorporated 



ion Road South, Rochester, N.Y. 14623 
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beginning at that line number and 
incrementing by one. The choice of a line 
number is most important, because 
modules are activated in the order in which 
they appear in Omni-Load. Therefore, if 
several modules link into the keyboard 
calling sequence, chose first in line will be 
"closest to the keyboard", i.e., called last. 
No module should have a line number 
greater than 49999. 

Next is a sixteen-bit value equal to minus 
the total number of bytes in the program. 
This tells Omni-Load how much space to 
reserve at the top of memory when it 
begins converting that module's remark 
statements into machine code. (An Omni- 
Load module is limited to a 2000 byte 
length). After another ORGO come two 
addresses. The first points to the startup 
code, executed once when Omni-Load is 
run, and destroyed. The second points to 
the resident code, which OmniLoad 
protects in upper memory. 

Next comes a DEFB 0, followed by a 
relocation table. The relocation table needs 
some explanation. All those instructions 
(e.g., JP and CALL) and data in the startup 
and resident routines referring absolutely 
(with a two byte address) to other 
addresses within those routines need to be 
singled out so Omni-Load can add a 
displacement value to them. This is the 
relocation process. The table is just a list of 
pointers to those instructions and data. If, 
in writing an assembly program, such an 
instruction ends up without a label, you will 
need to add one so you can refer to it in the 
table. Most (but not all) absolute address 
references begin in an instruction's second 
byte. Hence all the +1 's. To get the correct 
displacement for any instruction in 
question, consult your Editor/ Assembler 
manual. The relocation table must begin 
with a byte equal to its length in two-byte 
words and must end with a DEFBO. 

Following the relocation table is the 
startup block. This handles the preliminary 
linking and initialization tasks. Most 
programs in SYSTEM/ COMMAND have 
had such a block, ending with JP 1 A1 9H or 
402DH. Omni-Load startup blocks must 
end with RET. 

Finally comes the resident code. Omni- 
Load protects this code in upper memory by 
readjusting Basic's MEMORY SIZE. 

Now, type the auto-repeat example into 
the Editor/Assembler, assemble it and 
make an object tape. (Yes, disk users, get 
out the old CTR-80 and clean the heads - 
you are gonna make a tape\) Now, with 
SYSTEM tape in hand, load Omni- Load and 
type RUN 56789 ENTER. You should get 
the message 

READY CASSETTE— 
If not, proofread the REM's, after 57000, 
correct and try again. Once you get the 
right message, stick the SYSTEM cassette 
in the recorder, press PLAY and hit ENTER. 
The tape will begin to read, displaying its 
name, and signalling you with asterisks. 
When loaded, the REM's will be generated 



56001 REM4000000007004500000000111E00CD2C1BD20000AF6069 
23230633862310FCFEA4C20000ED5BE6401B2AB14023232323010 
400EDB8EB22B14022494011CEFF1922A040CD06 

56002 REM050040004A1BC3CC06C1 

56003 REM00000001FF 

56789 DIMP%(141) :GOSUB60000 

56790 P%(0)=-8536:PRINT 
56800 STOP 

57000 REM00F4E2002A 

57001 REM40000000A300B000004EA700AA00B200B500BC00C000C3 
00CA00E000FC0005011A011D012001230136013A013E0143014A0 
1500158015E016B0172017901810191019401B3 

57002 REM4000400097019A019F01A501AB01AF01B501BB01C001C4 
01C801CC01D301D901DF01E301E601EB01F901FF01020206020A0 
2140218021B021F0225022B02310236023D025A 

57003 REM400080004002430247024D02530258025E0262028A028F 
029902A102A502AD02BA02C002C502002A164022D70221B000221 
640C9ED7312033AD902B7280B3DCAC7013DCAE1 

57004 REM4000C000DE01C3C701AF329C4021DA02CDA728CDE303B7 
28FAFE01200F3A8038B728F02AD702221640C3CC06FE0D20E3CD3 
3003E0FCD3300AFCD1202CD9602CD6201FE55E2 

57005 REM400 1000020F60606CD6201CD33 0010F83E0 DCD33003E 2A 
323E3C323F3C111D0B211D03221B03CD5401FE782853FE3C20223 
A3F3CEE0A323F3CCD540147CD54014FCD5401BA 

57006 REM40014000814FCD5401814F10F9CD6201B928D321F20218 
19DF3006CD62017723C9210303180B3A4038E604CA350221EB02C 
DA728ED7B1203CDF801AF32D902C9CDF801FDC6 

57007 REM40018000211D03FD7E01FE0420C5FD6E04FD6605221403 
CD5C02212503221B03AF4FCDA902FD7E07CDA902FD7E06CDA902A 
FCDA90279ED44CDA9022AA7402217033E013267 

57008 REM4001C000D902AF321603C92A1703232217032B7EB7C03A 
D9023CE60332D9023E0DC93A1603B7CC8E02CD5C0238503A16034 
7B72804FE403802064090321603AF4F78CDA928 

57009 REM40020000022A19037CCDA9027DCDA9027D806F7CCE0067 
221903AFCDA9022A1B037ECDA9022310F9221B0379ED44CDA9022 
AA7402217033E0132D902AFC9AF4FCDA902CDEB 

57010 REM40024000A902CDA9023CCDA90279ED44CDA9022AA74022 
17033E0332D902AFC9082A1403232214032B11FF7FAFED52CDD20 
BCDBD0F23ED5BA7407EB7280512231318F7EBEC 

57011 REM40028000365223364523364D2322170308C92A1B037EFE 
7837C8237E321603235E2356ED53190323221B03AFC9E5D5F52A1 
7035F814F7B0F0F0F0FE60FCDCB027BE60FCD45 

57012 REM4002C000CB023600221703F1D1E1C9FE0A3802C607C630 
7723C9C30000000D52454144592043415353455454450E0042524 
5414B0D00544150452052454144204552524FEC 

57013 REM12030000520D005441504520544F4F204C4F4E470D00F3 

57014 REM00000001FF 

60000 V0=0 : V1=0 : RESTORE : FORI=0TO14 1 : READP% ( I ) :NEXT 
60010 A=PEEK (16414) +256*PEEK (16415) : IFA>32767THENA=A-65 
536 , 

60020 P% (1) =A: V=VARPTR(P% (2) ) : IFV<0THENV=V+65536 
60030 V1=INT (V/256) : V0=V-V1*256:POKE16414,V0:POKE16415, 
VI 

60040 RETURN 
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Figure 2 



00100 




ORG 





^ALWAYS ORG 


00110 




DEFW 


3000 


?*BASIC LINE NO. 


00120 




DEFW 


-KBDE 


-TOTAL NO. BYTES 


00130 




ORG 





?*ALWAYS ORG 


00140 




DEFW 


START 


?*POINT TO STARTUP CODE 


00150 




DEFW 


AKBD 


;*POINT TO RESIDENT CODE 


00160 




DEFB 


;*ALWAYS DEFB 


00170 




DEFB 


RELOCE-RELCXX-l 


?*NO. 2-BYTE WDS IN TABLE 


00180 


RELOC 


DEFW 


AKBD+1 /RELOCATION TABLE 


00190 




DEFW 


AR01+1 




00200 




DEFW 


AR02+1 




00210 




DEFW 


AR03+1 




00220 




DEFW 


AR04+1 




00230 




DEFW 


AR05+1 




00240 




DEFW 


AR06+1 




00250 




DEFW 


AR07+1 




00260 




DEFW 


AR08+1 




00270 




DEFW 


AR09+1 




00280 




DEFW 


AR10+1 




00290 


RELOCE 


DEFB 


;*ALWAYS DEFB 


00300 










00310 


; STARTUP CODE s MUST PRECEDE RESIDENT CODE. 


00320 










00330 


START 


LD 


HL, (4016H) 


; STARTUP CODE; LINK INTO 


00340 


AR09 


LD 


(SKBD+1) ,HL , 


•KEYBOARD CALLING SEQUENCE 


00350 


AR10 


LD 


HL,AKBD 


s 


00360 




LD 


(4016H) ,HL , 


. 


00370 




RET 




? ALWAYS END W/ RET 


00380 










00390 


; RESIDENT 


CODE 




00400 










00410 


AKBD 


LD 


A, (CSAVE) 


?CHAR BEING SAVED? 


00420 




OR 






00430 




JR 


Z f KBD0 


; NO: DON'T DELAY 


00440 


AR01 


LD 


A, (COUNT) t 


•255 TIMES THRU? 


00450 




CP 


255 


s 


00460 




JR 


C,KBD0 ; 


NOT YET: FORGET DELAY 


00470 




LD 


BC,5000 


; DELAY: ADJUST THE 5000 TO SUIT 


00480 




CALL 


0060H ; 


ROM DELAY ROUTINE 


00490 


KBD0 


LD 


HL,4036H 


?COPY LV II KBD SAVE VECTOR 


00500 


AR02 


LD 


DE,VSAVE ; 


• 


00510 




LD 


BC,8 t 


s 


00520 




LDIR 




« 


00530 


SKBD 


CALL 


$-$ \ 


;CALL OLD KBD ROUTINE 


00540 




PUSH 


AF j 


RESERVE CHARACTER 


00550 




LD 


HL,4036H 


•COMPARE NEW VECTOR TO OLD 


00560 


AR08 


LD 


DE r VS AVE j 




00570 




LD 


B,8 t 


• 


00580 


ACLOOP 


LD 


A, (DE) ; 




00590 




CP 


(HL) 


•DIFFERENT? 


00600 




JR 


NZ, DIFFER ; 


YES 
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and echoed on the screen. Finally, READY 
CASSETTE— will again be displayed. You 
may either load another tape or hit SHIFT- 
BREAK to return to Basic. At this point 
reSAVE Omni-Load, which now contains 
the auto repeat module. 

Not all tape loads will be successful. You 
may get a TAPE LOAD ERROR, which 
means your SYSTEM tape was not of the 
prescribed format. You may also get a TAPE 
TOO LONG error, which means your 
module exceeds 2000 bytes. Pare it down 
or break it up. 

Once merged successfully, you may use 
the auto repeat by running OmniLoad. Now 
whenever you hold down a key it will repeat 
itself. To temporarily disable this feature 
and use a previously loaded (NEWDOS for 
example) keyboard routine, type SHIFT- 
BREAK. To re-enable hit SHIFT-BREAK 
again. 

Omni-Load should handle most small 
machine language utilities you want to 
write. Programs from previous 
SYSTEM/COMMAND columns are ripe 
candidates for conversion to the Omni- 
Load format. Not all combinations of these 
routines will be successful though, 
because of timing interactions and sharing 
of certain function keys. But experiment 
anyway. You may come up with the perfect 
utility for your needs. 



00610 




INC 


HL 


00620 




INC 


DE 


00630 




DJNZ 


ACLOOP 


00640 


AR03 


LD 


A, (COUNT) 


00650 


DLYL 


CP 


255 


00660 




JR 


C, COUNTI 


00670 




POP 


HL 


00680 


AR04 


ID 


A, (CSAVE) 


00690 




RET 




00700 


COUNTI 


INC 


A 


00710 


AR05 


ID 


(COUNT) ,A 


00720 




XOR 


A 


00730 




POP 


HL 


00740 




RET 




00750 


DIFFER 


XOR 


A 


00760 


AR06 


LD 


(COUNT) ,A 


00770 




POP 


AF 


00780 


AR07 


LD 


(CSAVE) f A 


00790 




RET 




00800 


CSAVE 


DEFB 





00810 


COUNT 


DEFB 





00820 


VSAVE 


DEFS 


8 


00830 


KBDE 


EQU 


$ 


00840 




END 





; ENOUGH DELAY? 
i • 

; NO: COUNT SOME MORE 

; YES: FORGET RESERVED CHAR 

;GET SAVED CHAR 

;AND RETURN IT 

;INC (COUNT) 

i • 

;& RETURN A 

; (DISCARD RESERVED CHAR) 

;ZER0 COUNT 
i • 

; SAVE & RETURN RESERVED CHAR 

i ® 

I CHAR SAVE AREA 

I PASS COUNTER 

;KBD VECTOR SAVE AREA 

;=N0. BYTES IN PROGRAM 




with in 



Put an end to the Misplaced Informa- 
tion Syndrome! Here is a reliable, fast, 
subject-oriented information locator — 
FIND IT QUICK! This information in- 
dexing and retrieval system is versatile and 
flexible- the ideal tool for doctors, 
lawyers, engineers, businessmen, educa- 
tors, anyone who needs to locate informa- 
tion. 

Designed with a journal/magazine for- 
mat, FIQ is versatile enough to be used to 
store and retrieve any type of reference in- 
formation including client lists, vendor 
advertisements, report bibliographies and 
more — even poems and famous quota- 
tions. Subjects can be indexed or called 
according to author, journal and date or 
by up to nine keywords that you deter- 
mine. Keywords can be used singly or in 
combination during the search routines. 

FIQ can be used by anyone. It requires 
no special skill, just the ability to type. Ar- 



ticle references to be stored can be pre- 
selected and then entered into the system 
by a secretary or assistant. The contents 
of entire file cabinets can even be indexed 
and stored! 

FIND IT QUICK requires a minimum 
system consisting of a TRS-80 Model I 
Level II with 16K of RAM, an Expansion 
Interface with 16K of RAM and at least 
one disk drive. Up to 1080 items can be 
stored on one data disk. Instant Soft- 
ware's Tiny DOS operating system is in- 
cluded on the program disk so that you 
can use the program without fuss or 
bother. 

Make your computer work like your 
own personal librarian with FIND IT 
QUICK. Can you afford to wait another 
day? 

Order No. 0258RD $49.95. Disk 




PETERBOROUGH, N.H. 03458 



The MASTER DIRECTORY is a disk 
file storage program that reads the files on 
all your disks and stores the file names and 
extensions and even records the free space 
on each disk. All you have to do is number 
the disks in your library and the MASTER 
DIRECTORY will keep track of their con- 
tents. You can read the names, displayed 
alphabetically, search the DIRECTORY 
for file names and extensions, delete disks 
and search for free space. You can store 
5000 files or 320 disks, whichever comes 
first. 

Your disk storage problems are over now 
that the MASTER DIRECTORY is here. 
This package requires the following 
minimum system: 

1. A TRS-80 Level II with 16K RAM. 

2. An Expansion Interface. 

3. One (or more) disk drives. 




Order No. 50O5RD (disk-based version) 
$29.95 



SEE YOUR LOCAL 
INSTANT SOFTWARE DEALER 
OR CALL TOLL-FREE 
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"Tite teaf cowered by Creative Computing 
is on® off the most important explosive and 
fast-changing. "—Alvin loftier 



David Ahl, Founder and 
Publisher of Creative Computing 



You might think the term "creative com- 
puting" is a contradiction. How can some- 
thing as precise and logical as electronic 
computing possibly be creative? We think 
it can be. Consider the way computers are 
being used to create special effects in 
movies— image generation, coloring and 
computer-driven cameras and props. Or an 
electronic "sketchpad" for your home 
computer that adds animation, coloring 
and shading at your direction. How about a 
computer simulation of an invasion of killer 
bees with you trying to find a way of keep- 
ing them under control? 

Beyond Our Dreams 

Computers are not creative per se. But 
the way in which they are used can be 
highly creative and imaginative. Five years 
ago when Creative Computing magazine 
first billed itself as "The number 1 maga- 
zine of computer applications and soft- 
ware," we had no idea how far that idea 
would take us. Today, these applications 
are becoming so broad, so all- 
encompassing that the computer field will 
soon include virtually everything! 

In light of this generality, we take "appli- 
cation" to mean whatever can be done with 
computers, ought to be done with comput- 
ers or might be done with computers. That 
is the meat of Creative Computing. 

Alvin Toffler, author of Future Shock and 
The Third Wave says, "I read Creative Com- 
puting not only for information about how 
to make the most of my own equipment but 
to keep an eye on how the whole field is 
emerging. 

Creative Computing, the company as 
well as the magazine, is uniquely light- 
hearted but also seriously interested in all 
aspects of computing. Ours is the maga- 
zine of software, graphics, games and sim- 
ulations for beginners and relaxing profes- 
sionals. We try to present the new and im- 
portant ideas of the field in a way that a 1 4- 
yearold oraCobol programmer can under- 



stand them. Things like text editing, social 
simulations, control of household devices, 
animation and graphics, and communica- 
tions networks. 

Understandable Yet Challenging 

As the premiermagazineforbeginners, it 
is our solemn responsibility to make what 
we publish comprehensible to the new- 
comer. That does not mean easy; our 
readers like to be challenged. It means 
providing the reader who has no prepar- 
ation with every possible means to seize 
the subject matter and make it his own. 

However, we don't want the experts in 
our audience to be bored. So we try to 
publish articles of interest to beginners and 
experts at the same time. Ideally, we would 
like every piece to have instructional or 
informative content— and some depth- 
even when communicated humorously or 
playfully. Thus, our favorite kind of piece is 
acessible to the beginner, theoretically 
non-trivial, interesting on more than one 
level, and perhaps even humorous. 

David Gerrold of Star Trek fame says, 
"Creative Computing with its unpreten- 
tious, down-to-earth lucidity encourages 
the computer user to have fun. Creative 
Computing makes it possible for me to 
learn basic programming skills and use the 
computer better than any other source. 

Hard-hitting Evaluations 

At Creative Computing we obtain new 
computer systems, peripherals, and soft- 
ware as soon as they are announced. We 
put them through their paces in our Soft- 
ware Development Center and also in the 
environment for which they are intended — 
home, business, laboratory, or school. 

Our evaluations are unbiased and accur- 
ate. We compared word processing printers 
and found two losers among highly pro- 
moted makes. Conversely, we found one 
computer had far more than its advertised 
capability. Of 16 educational packages, 



only seven offered solid learning value. 

When we say unbiased reviews we mean 
it. More than once, our honesty has cost us 
an advertiser— temporarily. But we feel 
that our first obligation is to our readers and 
that editorial excellence and integrity are 
our highest goals. 

Karl Zinn at the University of Michigan 
feels we are meeting these goals when he 
writes. "Creative Computing consistently 
provides value in articles, product reviews 
and systems comparisons ... in a magazine 
that is fun to read." 

Order Today 

To order your subscription to Creative 
Computing, send $20 for one year (12 
issues), $37 for two years (24 issues) or $53 
for three years (36 issues). If you prefer, 
call our toll-free number, 800-631-8112 (in 
NJ 201-540-0445) to put your subscription 
on your MasterCard, Visa or American Ex- 
press card. Canadian and other foreign 
surface subscriptions are $29 per year, and 
must be prepaid. We guarantee that you 
will be completely satisfied or we will re- 
fund the entire amount of your subscrip- 
tion. 

Join over 80,000 subscribers like Ann 
Lewin, Director of the Capital Children's 
Museum who says, "I am very much im- 
pressed with Creative Computing. It is 
helping to demystify the computer. Its arti- 
cles are helpful, humorous and humane. 
The world needs Creative Computing." 




Attn: Lorraine 



P.O. Box 789-M 
Morristown, NJ 07960 
Toll-free 800-631-8112 
(In NJ 201-540-0445) 
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cover. In the upper right hand 
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your subscription number. The 
date is the date of the last issue in 
your subscription. You will receive 
that; issue but none after that 
unless you renew your subscrip- 
tion. 

if your label reads MAY81 ,then 




Wallace Havenhill 
Cleveland Heights, Ohio 

As a teacher of mathematics, I have been interested 
in programs that graph mathematical functions. One 
such program was printed inthis magazine (Function 
Grapher/Root Finder, Nov/Dec 1 979, page 2.0). 
However, it, like most function graphing programs, 
required the user to enter equations by retyping the 
program line holding the mathematical function and 
then running the entire program. 

I feel that the computer should do as much as 
possible for the user, so I set about writing a program 
that would take a string entered with an INPUT 
statement and write that string into a program line. In 
short, to make the computer partially 
self-programming. To do this, I had to write a routine 
which is a partial Basic interpreter in ordertochange 
the ASCII character codes of mathematical 
operatiors and functions to their ASCII function 
codes. The Sep/Oct 1 979 issue of this magazine 
contains a list of the ASCII function codes. 

Run this program, entering different equations. Try 
X=Y; T=SIN(X); and Y=SQR(3*X+4). After the program 
displays the value for Y, break the program and list 
line 200. The equations entered via the INPUT 
statement will be in this line. 

Program Analysis 
Subroutine 1000 
Line 1 000 locates the start of the program in RAM 
by peeking the pointer at 1 6548 and 1 6549. Normally 
this location points to 171 29, but disk Basic pushes 
this location upwards in memory. Line 1010 holds 
the line number where the equation is going to be 
placed. 

Line 1 020 converts LN to MS (most significant 
byte) and LS (least significant byte). 

Lines 1 030-1 050 search for the memory location 
of line LN in RAM and places the memory location of 
the start of that line's content into ML. 

Subroutine 2000 

This is the partial Basic interpreter that converts 
ASCII character codes to their ASCII function codes. 
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Lines 2040-2090 convert +, 
arrow, respectively. 

Lines 21 00-21 40 convert COS, TAN, LOG, INT, and 
EXP. Note that this routineonlychecksthefirst letter. 
A "C" implies COS, "J" implies TAN, etc. 

Lines 2150-2160 convert SIN, SQR, ATN, and 
ABS. Here, the routine must check the second letter 
as well as the first to get the correct function. 

Line 2200 fills the remaining RAM locations for 
line LN with blanks. 

Things to Watch 
In using this technique, the programmer must 
observe the following rules: 

1 . Line number searched for must be pre-defined. 

2. Line number must not reside in a portion of 
memory that lies in the expansion memory (beyond 
the 1 6K boundary). 

In creating the formulas, beware of COS(CT) types 
(Try it to see the results). 

100 CLS 

110 GOSUB 1000 
120 GOSUB 2000 
130 INPUT "VALUE FOR X"; X 

200 REM PAD THIS LINE WITH ENOUGH CHARACTERS TO 

EXCEED YOUR LONGEST EQUATION 
300 PRINT E$ 
310 PRINT X, Y 
320 PRINT : GOTO 120 

1000 MM = PEEK(16548) + 256 * PEEK(16549) 
1010 LN-200 

1020 MS = INT(LN / 256) : LS - LN - 256 * MS 
1030 M = MM 

1040 IF PEEK(M+2)OLS OR PEEK(M+3)<>MS THEN 

M=PEEK(M) + 256 * PEEK(M+1) : GOTO 1040 
1050 ML = M+4 
1060 RETURN 

2000 INPUT "ENTER YOUR EQUATION, Y=F(X)"; E$ 
2010 M = ML 

2020 FOR N = 1 TO LEN(E$) 
2030 Q = ASC(MID$(E$,N,1)) 
2040 IF Q=43 THEN Q=205 : GOTO 2170 
2050 IF Q=45 THEN Q=206 : GOTO 2170 
2060 IF Q=42 THEN Q-207 : GOTO 2170 
2070 IF Q=47 THEN Q=208 : GOTO 2170 
2080 IF Q=61 THEN Q=213 : GOTO 2170 
2090 IF Q=91 THEN Q=209 : GOTO 2170 
2100 IF Q=67 THEN Q=225 : N = N + 2 
2110 IF Q=84 THEN Q=227 : N = N + 2 
2120 IF Q=76 THEN Q=223 : N = N + 2 
2130 IF Q=73 THEN Q=216 : N = N + 2 
2140 IF Q=69 THEN Q=224 : N = N + 2 
2150 IF Q=83 THEN N = N + 2 

= "I" THEN Q = 226 ELSE Q 
2160 IF Q=65 THEN N = N + 2 

= "T" THEN Q = 228 ELSE Q 
2170 POKE M, Q 
2180 M = M + 1 
2190 NEXT N 

2200 IF PEEK(M) <> THEN POKE M,32 : M = M + 1 
: GOTO 2200 

2210 RETURN - 
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GOTO 2170 
GOTO 2170 
GOTO 2170 
GOTO 2170 
GOTO 2170 
: IF MID$(E$,N-1,1) 
- 221 

: IF MID$(E$,N-1,1) 
= 217 
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Introducing SIMUTEK'S ZBASIU, The truly interactive BASIC 
COMPILER for your TRS-80! FINALLY! People that don't have the time or 
the inclination to learn complicated assembly language, have a chance to 
write PROFESSIONAL QUALITY SOFTWARE in machine language using 
a subset of LEVEL II BASIC!! 

What does interactive mean? It means you have ZBASIC and your 
BASIC program resident at the same time! You may compile a BASIC 
program, run it or save it without destroying your resident BASIC program! 
In fact, jumping back and forth between the compiled code and the BASIC 
code is one of its finest features 1 

ZBASIC allows saving your COMPILED PROGRAM as a system tape, 
(tape version), or as /CMD file, (disk version) THE COMPILED CODE IS 
VERY EFFICIENT Z80 OBJECT CODE THE LEVEL II ROMS ARE USED 
ONLY FOR I/O ROUTINES 1 ! 



1 1 6K ZBASIC will compile a 4 8K program (tape only) 
32K ZBASIC will compile a 17K (tape), 10K (disk) pgm 
48K ZBASIC will compile a 17K program (disk only) 

(These are approximate values depending on program efficiency 
etc ) 

2 ZBASIC DOES NOT support disk or tape files 

3 BASIC programs compiled with ZBASIC are between 10-200 times 
faster than interpreted BASIC 11 

4 NO ROYALTIES ON ZBASIC COMPILED PROGRAMS" 

5 ZBASIC programs are only about 1 1 times larger than the average 
basic program 

6 ZBASIC programs rnav be used as USR routines from basic 

7 ZBASIC uses INTEGER MATH ONLY to increase speed and 
decrease compiled program size Use of Single or Double precision 
would destroy the beauty of the first "INTERACTIVE COMPILER" on 
the market 1 

8 Limited variables A-Z A1-Z1, A2-Z2 A$-Z$ Arrays are not 
supported to decrease memory demands and speed up compiling of 
programs 

9 COMPILE TIMES ARE TYPICALLY 1 TO 1 SECONDS! THERE IS 
NO NEED TO USE COMPLICATED COMPILE TIME MODULES! 
ZBASIC comes with a HIGHLY DETAILED manual describing all 
important memory locations, commands, variables, warm/cold start 
entry points and many useful sub-routines for emulating unsupported 
commands!! 

Existing programs may be loaded from tape or disk and compiled as 
long as unsupported commands or variables are not used 
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FOR 


NEXT 


STEP 


IF 


THEN 


ELSE 


PEEK 


SFT 


RESET 


POINT 


CHRS 


RANDOM 


RND 


POKE 


DATA 


READ 


RESTORE 


END 


GOTO 


GOSUB 


CLS 


INPUT 


INKEYS 


LET 


STOP 


OUT 


INP 


RETURN 


PRINT 


LPRINT 


PRINK. 


USR 


SGN 


INT 


ABS 


son 


LFM 


ASC 


VAL 


STRS 


POS 


ON GOTO 


ON GOSUB 


REM 


NOT 


AND 


OR 






INTCGFR MATH 'MULTIPLY 


DIVIDE 


} ADD - 


SLJBTRAC T 


; - 32767 




NOTfc Some 


xmimands do i 


ot act exact 


y as BASIC commands act 





TRS-80 MOD 1 and III or PilC-8© Cor 
Only) NEW LOWER PRICES! 

ZBASIC 16K/32K LVII Tape Version -f Manual 
ZBASIC 32K/48K Disk Version + Manual 
Both Versions + Manual 
ZBASIC Manual Only (Fully Refundable) 
Model III Version Available 3/1/81 



niters. (Level II 

$79.95 
$89.95 
$99.95 
$25.00 



Credit Card or C O D Call Toll Free: (800) 528-1 1 49 
or send check or money order to' 



PO Box 13687 Tucson, AZ 85732 
(C OD Available $3 00 Extra) 
TRS-80 a TM of Tandy Corp 

* Circle 48 



(602) 323-9391 
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In writing checks and other financial papers it is 
customary to put the amount in the Arabic numerals 
and also in English words. There are probably some 
good reasons for this. However, a discussion of them 
is beyond the scope of this article. We will show you a 
Basic language program to convert the usual 
Arabic number to English words. 

This program is a demonstration which accepts 
continuing numeric inputs in line 90 (variable A) and 
converts them into English word equivalents. By 
some simple changes, the program can be used as a 
subroutine for use in any program which requires 
this type of output. Any program which writes checks 
(such as payroll or accounts payable) could use this 
routine. 

The program will accept any number from 1 .00 to 
99,999.99. For amounts higher than this, the 
program will have to be modified. Other variations 
are possible, too. For instance, if the printed line is too 
long for your checks, it could be shortened by 
substituting the "&" character for "AND". The 
"xx/1 00" could be replaced with "CENTS", requiring 
the relocation of the word, "DOLLARS". 

The examples shown here also include variable 
values as a debugging aid. 

10 REM THIS PROGRAM WILL CONVERT 

20 REM ARABIC NUMBER SYMBOLS TO 

30 REM ENGLISH NUMBER WORDS 

40 REM BY G. L. HALLER 

50 DIM T$(27) 
60 DEFDBL A 
70 V$="##" 
80 LPRINT 



90 INPUT "NUMBER = ";A 
100 IF A>99999.99 THEN 

PRINT"NUMBER IS TOO BIG" : 

GOTO 90 

110 LPRINT "INPUT NUMBER A IS ";A 

120 LPRINT 

130 T=INT(A) 

140 B=100*(A-T) 

150 T1=INT(T/1000) 

160 T2=INT(T1/10) 

170 T3=T1-T2*10 

180 T4=T-1000*T1 

190 T5=INT(T4/100) 

200 T6=T4-100*T5 

210 T7=INT(T6/10) 

220 T8=T6-10*T7 

230 RESTORE 

240 DATA ONE , TWO , THREE , FOUR , FIVE , SIX 

250 DATA SEVEN , EIGHT , NINE , TEN , ELEVEN 

260 DATA TWELVE , THIRTEEN , FOURTEEN 

270 DATA FIFTEEN , SIXTEEN , SEVENTEEN 

280 DATA EIGHTEEN , NINETEEN , TWENTY 

290 DATA THIRTY , FORTY , FIFTY , SIXTY 

300 DATA SEVENTY, EIGHTY, NINETY 

310 FOR 1=1 TO 27 

320 READ T$(I) 

330 NEXT 

340 T$(0)="" 

350 IF Tl=0>20 THEN 410 

360 IF T<100 THEN 460 

370 IF T<1000 THEN 440 
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380 LPRINT T$(T2*10+T3); 
390 GOSUB 580 
400 GOTO 430 

410 LPRINT T$(T2+18);" ";T$(T3); 

420 GOSUB 580 

430 IF T5=0 THEN 460 

440 LPRINT T$(T5); 

450 GOSUB 620 

460 IF T6=>20 THEN 530 

470 IF T6=0 THEN PRINT 

480 LPRINT T$(T6);" AND "; 

490 IF B=0 THEN LPRINT "NO/100 DOLLARS": 

GOTO 90 
500 LPRINT USING V$;B; 
510 LPRINT '7100 DOLLARS" 



520 GOTO 90 

530 LPRINT T$(T7+18);" ";T$(T8);" AND "; 
540 IF B=0 THEN LPRINT "NO/100 DOLLARS": 

GOTO 90 
550 LPRINT USING V$;B; 
560 LPRINT "/100 DOLLARS" 
570 GOTO90 

580 LPRINT " THOUSAND"; 

590 IF T4=0 AND T6=0 THEN RETURN 

600 LPRINT " AND "; 

610 RETURN 

620 LPRINT " HUNDRED"; 
630 IF T6=0 THEN RETURN 
640 LPRINT " AND "; 
650 RETURN 



For use with the 
Model I, II, and SSB 

INPUT NUMBER A IS 12345.67 



T= 12345 B= 67 

T1= 12 T2= 1 T3= 2 T 4= 345 

T5= 3 T6= 45 T7= 4 T8= 5 

TWELVE THOUSAND AND THREE HUNDRED AND FORTY FIVE AND 67/100 DOLLARS 

INPUT NUMBER A IS 89999.99 

T= 89999 B= 99 

T1 = 89 T2= 8 T 3= 9 T 4= 999 

T5= 9 ^ T6= 99 T 7= 9 T 8= 9 

EIGHTY NINE THOUSAND AND NINE HUNDRED AND NINETY NINE AND 99/100 DOLLARS 
INPUT NUMBER A IS 50 



T= 50 B= 

T1 = T2= T3= T 4= 50 

T5= T6= 50 T7- 5 T8= 

FIFTY AND NO/100 DOLLARS 
INPUT NUMBER A IS 100 



T= 100 B= 

T1= T2= T3= T 4= 100 

T5= 1 T6= T7= T 8= 

ONE HUNDRED AND NO/ 100 DOLLARS 
INPUT NUMBER A IS 215.58 



T= 215 B = 58 

T c 1= ? T2 = T3= T 4= 215 

T5= 2 T6= 15 T 7= 1 T8= 5 

TWO HUNDRED AND FIFTEEN AND 58/100 DOLLARS 
INPUT NUMBER A IS 219 



T= 219 B= 

T1= T2= T3= T4= 219 

T5= 2 T6= 19 T7= 1 t8= 9 

TWO HUNDRED AND NINETEEN AND NO/100 DOLLARS 
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(Line Packing.. .Cont'd from page 26) 
Line #6: Data For Zero Move 



STEP# DECIMAL HEX STATEMENT 






P.O. 






4 
X 


1 
X 


SO X 


COUNTER 


^1 




R4 


DATA 


Cf 


129 


81 


11 


/, 


129 


SI 


11 


cr 
D 


1 

X 


(711 

VJ X 


11 


b 


7 


07 


11 


-7 
f 


1 OQ 


R1 

O X 


it 


o 
o 


1 OQ 
X -J 


R1 

Q X 


11 




4 


04 


11 




7 


07 


11 


x 1 




41 


11 


1 


1 OQ 


Pi1 
o X 


11 


4 -T 

lo 


7 


07 


11 


14 


X 


(7)1 
KJ X 


11 


15 


i 


(717 


11 


lb 


X 


P 1 
D X 


11 


■J -T 
1 f 


X •-><_) 


P7 


11 


1 o 




(7I4 

IU*+ 


11 


1 a 


71 

f X 


47 


11 




1 

J. 


(711 

X 


11 


■~i 4 

z. 1 


P.^ 


41 

M- X 


11 




P.'S 


41 

** X 


11 




1 
X 


01 


a 




1 TO 




n 


OCT 


1 
i. 


(711 


11 


'XT 
ZD 


1 


01 


11 


C*7 


7 


07 


11 


•-■o 


71 

r X 


47 


11 




X N-'lJ 


P.7 
D r 


11 




1 OQ 


P1 
O X 


it 


31 


1 -rcr 


P7 


n 


3.2 


X Oj 


P7 
© ( 


11 


33 


7 
f 


17)7 


11 


34 


1 TO 

X OeL 


P/i 


11 


TC 
OvJ 


71 
/ X 


47 


11 


•5 b 


1 ^'P 

X £.3 


P.1 
D X 


11 


77 

•5 I 


X --"^J 




11 


TO 

3d 


1 Tcr 


P7 
D f 


11 


03 


1 TCC 


R7 


11 




1 
X 


01 

Hi X 


11 


41 


71 


47 


ti 


42 


1 


01 


11 


43 


129 


81 


11 


44 


4 


04 


it 




132 


84 


11 


46 


4 


04 


11 


47 


7 


07 


11 


48 


7 


07 


11 


49 


7 


07 


11 


50 


135 


87 


11 


51 


135 


87 


11 


52 


1 


01 


11 


53 


65 


41 




54 


135 


87 




55 


1 


01 




5B 


7 


07 




57 


129 


81 





Line #2: Line Finder 
STEP# DECIMAL HEX STATEMENT 






121 


79 


LDft, C 


1 


254 


FE 


CP 7 N 




13 


0D 


N 




200 


C8 


RET, Z 


4 


42 


2ft 


LDHL, CNN 


5 


164 


A4 


N 


6 


64 


40 


N 


7 


84 


54 


LDD, H 


8 


93 


5D 


LDE, L 


9 


35 


•^3 


INC, HL 


10 


35 




INC, HL 


1 1 


130 


BE 


CP, CHL) 


12 


40 


28 


JRZ 


13 


7 


07 




1 /< 


235 


EB 


EXDE, HL 


15 


94 


5E 


LDD, CHL) 


16 


35 




INC, HL 


17 


86 


56 


LDE, CHL) 


1 8 


235 


EB 


EXDE, HL 


19 


24 


1 3 


JR 


20 


242 


F2 


© 


21 


35 


23 


INC, HL 




35 




INC, HL 


2--' 


126 


7E 


LDA, CHL) 


24 


35 


^3 


INC, HL 


25 


254 


FE 


CP, N 


26 


68 


44 


N 


27 


32 


20 


JRNZ 


28 


4 


04 


e 


29 


34 




LDCNN), H 


30 


40 


28 


N 


31 


64 


40 


N 




201 


C9 


RET 




254 


FE 


CP, N 


34 




53 


N 


35 


132 


C0 


RET, NZ 


36 




E9 


JP, CHL) 


Line #5: Screen Painter 


5TEP# 


DECIMAL 


HEX 


STATEMEN' 





(_)•_' 


ij-J> 


"S" 


1 




21 


LDHL, NN 




1 


01 


N 




60 


•j>C 


N 


4 


84 


54 


LDD, H 


5 


33 


5D 


LDE, L 


6 


43 


2B 


DEC, HL 


7 


112 


70 


LDCHL), B 




VJ 


1 


01 


LDBC, NN 


9 


255 


pp 


N 


10 




03 


N 


11 




ED 


LDIR 


12 


176 


B0 




13 


201 


C9 


RET 



Line #32: CLS 



STEP# 


DECIMAL 


HEX 


OTA "T" 1 — ft /11 — 1\ 1 ~r 

STATEMENT 







53 


"B" 


1 


1 


01 


LDBC, NN 




5 


05 


N 




12S 


S0 


N 


4 


•~i[7icr 


CD 


CALL 


5 


37 


25 


N 


6 


64 


40 


N 


7 


201 


C9 


RET 




Line #33 


: All On 


STEP# 


DECIMAL 


HEX 


STATEMENT 





S3 


53 


"S" 


1 


1 


01 


LDBC, NN 




5 


05 


N 




191 


BF 


N 


4 


205 


CD 


CALL 


5 


37 


25 


N 


6 


64 


40 


N 


7 


201 


C9 


RET 


Line #35: Screen Flash 


STEP# 


DECIMAL 


HEX 


STATEMENT 





S3 


53 


"S" 


1 


6 


06 


LDB, N 






20 


N 


3 


62 


3E 


LDA, N 


4 


1 


01 


N 


5 


217 


D9 


EXX 


6 


8 


0S 


EXAF, AF' 


7 


33 


^ 1 


LDHL, NN 


8 


1 


01 


N 


9 


60 


TP 


N 


10 


84 


54 


LDD, H 


11 


93 


5D 


LDE, L 


12 


43 


2B 


DEC, HL 


13 


1 


01 


LDBC, NN 


14 


255 


FF 


N 


15 


-r 
■_• 


03 


N 


16 




ED 


LDA, R 


17 


95 


5F 




IS 


230 


E6 


AND, N 


19 


63 


3F 


N 


20 


40 


28 


JRZ 


21 


250 


Fft 


e 


22 


203 


CB 


SET 7, A 


23 


255 


FF 




24 


119 


77 


LDCHL), A 


25 


237 


ED 


LDIR 


26 


176 


B0 




27 


8 


08 


EXAF, AF 1 


28 


238 


EE 


XQR, N 




•j> 


03 


N 


30 


211 


D3 


OUT CN) , A 


31 




FF 


N 



(Listings continued on page 96) 
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j subroutine Steps ! - 3 load the HL register with the 
.Kklress of the start of the screen memory plus one 
Steos 4 and 5 place this address in the DE registers 
also in step 6. Hl is decremented by one so as to 
pomt ro the first byte of the screen memory 

Step 7 places whatever is stored in register B into 
tne first bvte of the screen memory Steps 8 - 10 set 
the BC register to be a counter which will count a 
total of one less than the number of bytes in the 
screen memory (this number in BC is 1023D or 
3 F F H • We have already loaded the first byte of the 
screen memory in step 7 Steps 1 1 and 12 copy the 
first bvte of the screen (which contains whatever was 
m the 8 register originally) into each next byte of the 
screen memory using BC as a counter to know when 
the iob is done 

This means that if we want all the screen turned 
on we would load a 1 91 D. or 3FH into register B and 
call !me 5 

To pack line 5 into our program, do the following: 
Delete lines 255-1003, then enter the following new 
lines and then save the program After the program is 
saved run the program once only 1 

181 SD (13 PERIODS) 

I 9) 255 l_PRINTCHR$<S5i 

20) H300 DATA83.33.1 60.84,93.43. 1 1 2, 1 ,255.3.237. 1 76,201 
■■21) 1010 L PEEK(16424)-PEEK{16425)*256~1 
1 22) 101 1 RESTORE FORI* 0T013 READD POKEL-N.D NEXTN 

Line 5 should now be packed Notice that we had to 
start the line in (18) with a "D" so that Line Finder 
would give us line 5' address. The minus one at the 
end of (21 ) causes the first item of data, an 83D, or an 
S for subroutine, to replace the "D" at the start of 
line 5 If you run the program again (try it if you like), 
iine 5 is now packed as a subroutine, and the Line 
Finder will jump to the "paint screen" subroutine. 
This will cause the screen to be filled with whatever 
is in register B This subroutine is not really meant to 
be called from Basic. It will normally be called from 
another I 80 subroutine In fact, the next two lines 
we will pack will be subroutines that call line 5 

Line 33 turns the screen on. Look at the listing in 
Figure 3 for line 33 All On Step identifies the line 
as a subroutine Steps 1 - 3 load the C register with 
the number of the line we wish to find, in this case, 
line 5 The B register is loaded with the byte we wish 
to have fill the screen, in this case a 1 91 D (the 
graphics code which turns on a print position). Steps 
4 6 call to the jump in the LPRINT vector at address 
1 642 1 D. or 4025H From there the program is sent to 
the Line Finder, where the line whose number is 
stored in the C register will be searched for and 
found Since the line being found, line 5, is a 
subroutine, the program jumps from line 2 to line 5 
where the content of the B register is loaded into the 
screen. Thus, to turn on the screen from Basic, we 
would LPRINT"!" or LPRIMTCHR$(33). 

Change or add the lines (at the beginning of the text 
on page 99) to our program and then save it again. 

(Text continued on page 99) 



TRS-80 Model 118 Business Software 

Business accounting system. 

Complete Package: $750.00 
A/R, A/P, P/R & G/L 
Accounts Receivable: Price $195.00 

This self confinguring system can be used on any 48K 
System with one to four disk drives. The system can be run 
coordinated with General Ledger or it can be used by itself. 
The user can decide how many disks he needs to 
accommodate his system and configure it to his 
requirements. Up to 999 Customers and 999 invoices can 
be handled on a three disk system. A utility menu function 
allows for verifying programs and files, initializing files and 
configuring the system As the user's requirements change, 
the system can be reconfigured to accommodate the larger 
capacity The system supports NEBS Billing Statements, 
aging analysis reports, customer activity reports, unbilled 
report, open and close invoice reports. Sales tax is 
automatically handled and up to 9 other tax or sales 
catagones are also supported. This system is time tested in 
over 4,000 accounts. 

Accounts Payable: Price $195.00 

This system, like all the Model III systems, is user 
configurable Up to 999 Vendors and 999 invoices can be 
handled on a three disk system. The user can also 
coordinate this system with the General Ledger system and 
eliminate many of the data entry chores of the Ledger 
system. NEBS computer generated payables checks, aged 
analysis, Vendor activity and open and close invoice reports 
and other reports are included in this package. This system 
has been run on a Wang computer for several years with 
wide user approval 

Payroll: Price $1 95.00 

The payroll system is also user configurable and can run on 
from one to four disks. Up to 250 empolyees living in up to 9 
states can be paid using this system. NEBS computer payroll 
checks are supported. This system supports a wide range of 
reports including: W-2's, absentee, deduction, check 
register, payroll history, and more. Weekly and biweekly pay 
periods, salary and hourly pay is supported. Again, this 
system can also feed Ledger and reduce the data entry 
requirements for your General Ledger 

General Ledger: Price $195.00 

This system is designed to interface with the other 
accounting systems or it can be run by itself. The user can 
define his own Chart of Accounts and report formatting. 
Trial balance and income statements as well as user 
definable special reports are all included as part of the 
system. 



6 Carlisle Road 
Westford, MA 0181 
(617) 692-3800 
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Line Packing 



Line #35: Screen Flash (Cont'd) 



CTCDif 




n la 




"T-7 


Vl7 


D9 


EX X 

turn /\ A 






10 


DJNZ 


34 


226 


E2 


e 


35 


1 


01 


LDBCv NN 


3S 


5 


05 


N 


37 


12S 


S0 


N 


38 


205 


CD 


CALL 


39 


37 


25 


N 


40 


G4 


40 


lM 


41 


201 


C9 


RET 


Line #36: Set Zero Direction 


STEP# 


DECIMAL 


HEX 


STATEMENT 





83 


53 


"S" 


-a 

1 


14 


0E 


LDC,N 


2 


6 


06 


N 


3 


205 


CD 


CALL 


4 


37 


25 


N 


5 


64 


40 


N 


6 


78 


4E 


LDC , (HL) 


"7 

7 


52 


34 


INC, (HL) 


8 


62 


3E 


LDA,N 


9 


57 


39 


N 




1 90 

JL 17 \J 


RF 
DEi 




11 


32 


20 


JRNZ 


12 


2 


02 


e 


13 


54 


36 


LD ( HL ) , N 


14 


1 


01 


N 


15 


6 


06 


LDB,N 


16 


1 


01 


N 


17 


5 


05 


DEC , B 


18 


9 


09 


ADDHL , BC 


19 


70 


46 


LDB , (HL) 


20 


14 


0E 


LDC,N 


21 


101 


65 


N 


22 


205 


CD 


CALL 


23 


37 


25 


N 


24 


64 


40 


N 


25 


35 


23 


INC,HL 


26 


35 


23 


INC,HL 


27 


112 


70 


LD(HL) , B 


28 


201 


C9 


RET 


Line #37: Up Sweep 


STEP# 


DECIMAL 


HEX 


STATEMENT 





S3 


53 


"S" 


1 


G2 


3E 


LDA,N 


2 


1 


01 


N 


3 


14 


0E 


LDCN 


4 


100 


G4 


N 


5 


G5 


41 


LDB, C 


& 


16 


10 


DJNZ 


7 


254 


FE 


e 



STEP# DECIMAL HEX STATEMENT 



s 


233 


EE 


XQR,N 


9 


3 


03 


N 


10 


211 


D3 


□UTCN), A 


11 


255 


FF 


N 


12 


13 


0D 


DEC, C 


13 


32 


20 


JRNZ 


14 


24G 


F5 


e 


15 


201 


C9 


RET 


Line #50: Preset Plus and Zero 


STEP# 


DECIMAL 


HEX 


STATEMENT 


(71 


OT 

bo 


53 


"B" 


1 
1 


1 4 


0E 


LDC 7 N 


O 
j£. 


1 raw 


64 


N 


■T 

■mi 




pn 
LU 


CALL 




•_■ i 




Kl 


w 






N 


G 


1 7 


i 1 


i nnc mm 


7 


1 ST 


QQ 
33 


M 

N 


R 


era 




M 


q 


1 1 S 

J. J. J 




I r\ i* Lji "t c 


1 PI 




O? 


T kip <J| 


1 1 


11/, 


TO 
(XL 


LU l. HL ) i U 


I ■£, 


1 /i 




LDC, N 


1 T 


1 oh 


crcr 


ki 
N 




oraer 


LD 


ChLL 




T"7 




Kl 

N 


J, D 




a ra 

aw 


Kl 

N 


1 7 


1 7 


1 1 


LUUhi NN 


1 p. 

J. u 


1 


nr 

3h 


M 


19 

J* —J 




Ofe. 


N 


20 


115 


73 


LDCHL) , E 


21 


35 


23 


INC, HL 


22 


114 


72 


LDCHL), D 


23 


14 


0E 


LDC, N 


24 


32 


20 


N 


25 


205 


CD 


CALL 


2G 


37 


25 


N 


27 


G4 


40 


N 


2S 


14 


0E 


LDC, N 


29 


51 


33 


N 


30 


205 


CD 


COLL 


31 


37 


25 


N 


32 


G4 


40 


N 


33 


14 


0E 


LDC, N 


34 


52 


34 


N 


35 


205 


CD 


CALL 


36 


37 


25 


N 


37 


64 


40 


N 


38 


201 


C9 


RET 


Line #51 : Set Plus On Screen 


STEP# 


DECIMAL 


HEX 


STATEMENT 





S3 


53 


' "S" 


1 


14 


0E 


LDC, N 


2 


100 


64 


N 


3 


205 


CD 


CALL 


4 


37 


25 


N 



STEP# 


DECIMAL 


HEX 


STATEMENT 


5 


64 


40 


N 


E 


94 


5e 


LDE, CHL) 


7 


35 


23 


INC, HL 


S 


86 


5G 


LDD, CHL) 


9 


9S 


62 


LDH, D 


10 


107 


6B 


LDL, E 


11 


54 


35 


LDCHL), N 


12 


140 


SC 


N 


13 


35 


23 


INC, HL 


14 


54 


36 


LDCHL), N 


15 


191 


BF 


N 


16 


35 


23 


INC, HL 


17 


54 


36 


LDCHL), N 


IS 


140 


SC 


N 


19 


62 


3E 


LDA, N 


20 


1 


01 


N 


21 


211 


D3 


OUT CM) i A 


22 


255 


FF 


N 


23 


6 


06 


LDB, N 


24 


50 


32 


« N 


25 


16 


10 


DJNZ 


26 


254 


FE 


e 


27 


62 


3E 


LDA, N 


28 


2 


02 


N 


29 


211 


D3 


0UTCN) i A 


30 


255 


FF 


N 


31 


201 


C9 


RET 


Line #52: Set Zero On Screen 


STEP# 


DECIMAL 


HEX 


STATEMENT 





S3 


53 


" S 11 


1 


14 


0E 


LDC, N 


2 


101 


65 


N 


3 


205 


CD 


CALL 


4 


37 


25 


N 


5 


64 


40 


N 


6 


94 


5E 


LDE, CHL) 


7 


35 


23 


INC, HL 


S 


86 


56 


LDD, CHL) 


9 


9S 


62 


LDH, D 


10 


107 


6B 


LDL, E 


11 


54 


35 


LDCHL), N 


12 


191 


BF 


N 


13 


35 


23 


INC, HL 


14 


54 


36 


LDCHL), N 


15 


179 


B3 


N 


16 


35 


23 


INC, HL 


17 


54 


36 


LDCHL), N 


IS 


191 


BF 


N 


19 


201 


C9 


RET 




Line #53: 


Count Dots 


STEP# 


DECIMAL 


HEX 


STATEMENT 





83 


53 


"S" 


1 


62 


3E 


LDA, N 


2 


140 


SC 


N 


■Z' 


1 


01 


LDBC, NN 


4 


255 


FF 


N 


5 


T, 


03 


N 


G 


17 


11 


LDDE, NN 
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Line #53: Count Dots (Cont'd) 



STEP# 


DECIMAL 


HEX 


STATEMENT 


7 


42 


2ft 


N 


S 


G4 


40 


N 


9 


33 


21 


LDHL, NN 


10 


1 


01 


N 


11 


G0 


3C 


N 


12 


237 


ED 


CPIR 


13 


177 


Bl 


— 


14 


224 


E0 


RET, PO 




to 




TRW 7 
w run t. 


IE 


251 


FB 


e 


17 


235 


EB 


EXHL, DE 


IS 


52 


34 


INC, CHL) 


13 


235 


EB 


EXHL, DE 


20 


24 


18 


JR 


21 


24G 


FG 


© 


Line #55: Game Control 


STEP# 


DECIMAL 


HEX 


STATEMENT 





83 


53 


"en 


1 


14 


(7ip 


i nr. m 


2 


70 

r UJ 


AC 


Kl 
in 


3 


205 




LHL.L 


4 


37 


25 


Kj 


5 


64 




Kl 
in 


G 


14 




f nr. M 


7 


S0 


3P 




S 


205 


CD 




9 


37 


25 


Kl 


10 


64 


40 




1 1 


14 


(Tip 




12 


100 


CA 


Kl 
IN 


13 


205 


rn 

WW 


PQI 1 


14 


37 


25 


N 


15 


G4 


40 


M 


1G 


94 


5E 


LDE, CHL) 


17 


35 


23 


INC HL 


IS 


SG 


56 


LDD, (HL) 


19 


213 


D5 


PUSH, DE 


20 


14 


0E 


LDCN 


21 


101 


G5 


N 


22 


205 


CD 


CftLL 


23 


37 


25 


N 


24 


G4 


40 


N 


25 


94 


5E 


LDE. (HL) 


2G 


35 


23 


INC, HL 


27 


SS 


5G 


LDD, (HL) 


2S 


225 


El 


POP, HL 


29 


1S3 


B7 


OR, ft 


30 


237 


ED 


SBCHL, DE 


31 


82 


52 




32 


32 


20 


JRNZ 


33 


G 


0G 


e 


34 


G2 


3E 


LDft, N 


35 


2 


02 


N 


3G 


50 


32 


LD(NN) , ft 


37 


43 


2B 


N 


38 


G4 


40 


N 


39 


201 


C9 


RET 


40 


58 


3ft 


LDft, (NN) 



STEP# 


DECIMAL 


HEX 


STATEMENT 


41 


44 


2C 


N 




64 


40 


N 


/i T 




4F 


LDC, ft 


/l /i 


f 1 


47 


L17B, H 


A R 


lb 


10 


DJNZ 


AC 


OB/, 

ZD4 


Ft 


e 


/i "7 
4 / 


1 T 


0D 


DEC C 


48 


32 


20 


JRNZ 


49 


250 


Ffl 


e 


50 


24 


IS 


JR 


51 


205 


CD 


e 


Line #60: Key Press? 


CTCDH 
O 1 C rrr 




u cv 
ntA 


b 1 A 1 tMENT 






53 




1 


<=;o 




i no. J*KIM*» 

L_X/H, VINIM^ 


•-• 


^.crcr 


FF 


Kl 
IN 


3 


SP. 


3S 


Kl 


A 


1 RT 


W7 


Ui\) M 






CR 


RFT. 7 


c 

W 


5R 




i-Uni ». IN IN i 


7 


F.4 




Kl 

IN 


8 


55 


38 


KJ 


g 


254 


FE 


CP, N 


10 


2 


02 




1 1 




"'0 


JRKJ7 

w IAIN 


X ^. 


O 






1 X 

X 


OOS 


P1 

C X 


pnp ui 

"Uri ML. 


1 4 

X M- 


•~'f7l1 

jwUJ X 


rq 


RFT 
r\C 1 


X 


3R 


^F. 


uun , in 


16 


I 


01 


KJ 

1 M 


17 


37 


■>5 


DEC, H 
x/CwU« , n 


18 




FF 


CP, Kl 

l«r t , IN 


1 R 

X -7 


R 


(UO 


Kl 

IN 




"SO 




TDM 7 


Ol 

■C- X 


/, 


Hi A 


© 


oo 


A P. 




I m Kl 

L.UL., IN 


•-■■T 


Dm- 




Kl 
IN 


"■>£ 


OA 


1 F) 
X o 


TP 


OCT 


I--... 


7b; 


© 


^'5 


OSA 


FF 


TP, Kl 


27 


72 


48 


N 


28 


32 


20 


JRNZ 


29 


. 4 


04 


© 


30 


45 


2E 


LDL, N 


31 


51 


3D 


N 


32 


24 


IS 


JR . 


33 


45 


2D 


e 


34 


254 


FE 


CP,N 


35 


54 


40 


N 


36 


32 


20 


JRNZ 


37 


4 


04 


© 


38 


46 


2E 


LDL, N 


39 


3 


03 


N 


40 


24 


IS 


JR 


41 


45 


2D 


© 


42 


254 


FE 


CP, N 


43 


80 


50 


N 


44 


32 


20 


JRNZ 


45 


4 


04 


© 


45 


45 


2E 


LDL, N 



— — . — — Line Packing 

STEP# DECIMAL HEX STATEMENT 



Line #61: Move Plus 



STEP# 


DECIMAL 


HEX 


STATEMENT 





S3 


53 


"S" 


1 


14 


0E 


LDCN 


2 


100 


64 


N 


3 


205 


CD 


CftLL 


4 


37 


25 


N 


5 


64 


40 


N 


6 


94 


5E 


LDE, (HL) 


7 


35 


23 


INC, HL 


S 


86 


55 


LDD, (HL) 


9 


225 


El 


POP, HL 


10 


235 


EB 


EXHL, DE 


11 


5 


05 


DEC B 


12 


40 


28 


JRZ 



Zl7 


F.7 

D I 


43 


N 


AO 




18 


JR 


/,q 


77 
•_' / 


25 


© 


vjliJ 


oc;/. 


FE 


CP, N 


cr < 
3 X 


1 F 

ID 


10 


N 


□Z. 


TO 


20 


JRNZ 


cr"T 
JO 








cry, 
£)4 


4b 


OCT 




PC 

jD 


D4 


410 


Kl 


DO 


O/i 


1 O 

X O 


TP 


cr"7 


OR 


1 n 

X iJ 




cro 
JO 


OCA 


r d 


CP, N 


CQ 

J3 




ol£J 


IM 


era 


TO 




TRM7 


D 1 


II 




© 


CO 


A P. 
-+D 


OF 


LDL, N 


DO 


F.1 

W X 


wu 


N 


F.A 


"^'4 


IS 

x w 


JR 


Do 


^1 


15 


© 


F.F. 

DO 


254 


FF 


CP, N 


F.7 

D / 


32 


20 


N 


F.F! 

DO 


32 


20 


JRNZ 


CO 
D3 


4 




© 


f u 


AC 


OF 


LDL, N 


/ 1 


T 


SO 


i>i 


-7.-1 
( jL 


0/1 


1 p 
x 


TO 


73 




racr 
UJD 


© 


74 




ETC" 

rt 


pp Kl 
wri IN 


TEE 

75 


4u9 


OD 

ilO 


M 


7b 


1 QO 


r»/7l 
L/KJ 


DPT. M7 


"7*7 


/1 c 


OCT 


LDL , N 


70 


F.7 


AT 


N 


7Q 


F. 


KID 


LDB, N 


ROT 
OKI 




01 


N 


R1 
X 


229 


E5 


PUSH, HL 


RO 


14 


0F 


LDC, N 




51 


3D 


N 


84 


195 


C3 


JP 


85 


37 


25 


N 


85 


64 


40 


N 


S7 


5 


05 


LDB, N 


88 


2 


02 


N 


89 


24 


IS 


JR 


90 


246 


F6 


© 
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Line #61: Move Plus (Cont'd) 



3TEP# 


DECIMAL 


HEX 


STATEMENT 


1 T 

X O 


_» 

O 


PIT 




1 /l 


9 EC 


1 Q 

X 3 


onnwi , df 


1 j 




1 P 

1 b 


TP. 


1 c 
lb 


O 


(TIT 
loo 


© 


1 "7 


loo 


R7 


nD, o 

Ui\) ri 


1 D 


Z.O ( 


cn 


copui , nc 
uDunui x/c 


i Q 
1 3 


00 
D<1 








PC" 


oc 


1 lift. M 
l—Urir IN 


9 1 




TD 
w«D 




99 


1 PP 

X Do 


RP 




OT 
■to 


9(71(74 


PP 
U>D 


OPT, 7 


9/l 


CO 

oz. 


3E 


1 no, Ni 

Lun! IN 




P. A 

DM- 


API 


Ik 


•7 p. 


1 PP! 
X Olj 


RP 


CP, H 




9(71(71 


PR 


RET, Z 


•7R 


F, 


PIP. 




9Q 


F.A 


API 


N 


TP! 


X w 


7D 


LDftt L 




ISA 


BS 


CP, B 


3-? 


5G 


38 


JRC 


■T"T 






1=1 


ta 


1 AA 




SUB, B 




°A 


1 R 
x 


JR 


Op 


9c™ 


FQ 

r m . 


■s. 


T7 
O f 




pp 
rt 


PP. M 

U") IN 


TO 
OO 


c 1 
bx 


ou 


In 


7Q 

03 




Hfn 
U\a 


DPT MP 




00 a 


c=: 
CD 


pi ICU Ul 

rUbtij ML 


H-X 


A 9 


OA 


i nui - i' MM 

LUnLi s IV IN 


/1 9 


/i (71 


28 


IN 




P/i 

b*+ 




IN 


AA 


3*4 




1 np, fuj % 

U>X/&? I I L- ^ 




•TEC 


OT 


TNC, HL 


A P. 


RF. 


SF. 


LDD, CHL) 


A7 


op, 


1 ft 
X ri 


i no, enF) 


AR 


*£w)M- 


FF 


CP, N 


AR 

*+ 3 


1 R1 

X J X 


RF 
or 




SPl 


AW 


00 


JR7 


S1 


7 


PIT 




CO 

J/. 


CO 


TP 
OC 


I no, m 


JO 


1 OD 


P(7) 
Dtu 


IN 


DA 


1 


1 9 

X Jm 




ce 

UvD 


1 Q 
X 3 


1 T 

X 


TMP. HP 
X INui L/C. 


□0 


lb 


1 9 


L_U ». UC. J i M 


— — 

57 


1 

1 3 


■i T 
X O 


TMP HP 
X InUt L/C, 


Do 


lb 


1 9 


i n <• hp ^ . o 

L.L/ \ L/C mH 


cq 

U3 


209 


U X 


pnp_ nP 

rUri L/C 


era 

bit) 


X X M- 


79 


i nfHi i , n 

i_x/ >. riL f t w 


bx 


AO 


9R 




bZ 


1 ID 


7T 


1 Dl" HI ") . F 

LmU ». ML / t E_ 


DO 


1 Q 
X 3 


13 

X 


TNC DF 


P. A 
OM- 


9 P. 


1ft 


I DA, CDF) 


RS 


254 


FE 


CP, N 


66 


140 


8C 


N 


G7 


40 


28 


JRZ 


GS 


5 


05 


e 


G9 


14 


0E 


LDC, N 


70 


51 




N 


71 


195 


C3 


JP 


72 


37 


25 


N 



STEP# 


DECIMAL 


HEX 


STATEMENT 


73 


64 


40 


N 


74 


G2 


3E 


LDAi N 


75 





03 


e 


7G 


50 


TO 
%•>*<&. 


LDCNN), A 


77 


43 


2B 


N 


78 


64 


40 


N 


79 


225 


El 


POP, HL 


80 


201 


C9 


RET 




Line #70: 


Move Zero 


CTCPif 


UCOIIvlML 


HEX 


STATEMENT 





S3 


5w' 


"S" 


1 


14 


0E 


LDC, N 


2 


101 


65 


N 


3 


205 


CD 


CALL 


4 


37 


25 


N 


5 


64 


40 


N 


G 


94 


5E 


LDEi (HL) 


7 


35 




INC* HL 


8 


86 


56 


LDDt (HL) 


9 


35 


23 


INC, HL 


10 


125 


7E 


LDA, (HL) 


11 


6 


05 


LDB, N 


12 


1 


01 


N 


13 


5 


05 


DEC, B 


14 


14 


0E 


LDC, N 


15 


58 


44 


N 


1G 


98 


52 


LDH, D 


17 


107 


GB 


LDL, E 


IS 


183 


B7 


OR, A 


19 


237 


ED 


SBCHL, BC 


20 


66 


42 




21 


79 


4F 


LDC, A 


99 


9 


09 


ADDHL, BC 


23 


62 


3E 


LDA, N 


24 


59 


3B 


N 


25 


1 88 


BC 


CP, H 


2G 


TO 
•~>£. 


20 


JRNZ 


97 


7 


07 


© 


28 


14 


0E 


LDC, N 


29 


.71 


47 


N 


30 


205 


CD 


CALL 


31 


37 


25 


N 


•-J 


64 


40 


N 


33 


24 


18 


JR 


34 


999 


DE 


© 


35 


62 


3E 


LDA, N 


3G 


64 


40 


N 


37 


X oo 


BC 


CP,H 


38 


40 


28 


JRZ 


39 


244 


F4 


© 


40 


6 


0G 


LDB, N 


41 


64 


40 


N 


42 


125 


7D 


LDA, L 


43 


184 


B8 


CP, 6 


44 


56 


38 


JRC 


45 


o 


03 


© 


4G 


144 


90 


SUB,B 


47 


24 


4 O 

X D 


JR 


48 


250 


FA 


© 


49 


254 


FE 


CP,N 



orrn u 

b 1 hrff 


UhLUVIAL 


UCY 

ncA 


O 1 A 1 tlvltlN 1 


50 


61 


3D 


N 


51 


48 


30 


JRMC 


CjO 


231 


E7 


© 


53 


229 


E5 


PUSH, HL 


54 


98 


62 


LDH, D 


55 


107 


6B 


LDL, E 


56 


54 


36 


LDCHL),N 


57 


128 


80 


N 


58 


35 


9"V 


INC, HL 


59 


54 


36 


LDCHL), N 


60 


140 


8C 


N 


61 






INC, HL 


62 


54 


36 


LDCHL), N 


63 


12S 


80 


N 


64 


42 


2A 


LDHL, (NN 


55 


40 


oo 

iO 


N 


66 


64 


40 


N 


67 


209 


Dl 


POP, DE 


63 


115 


73 


LDCHL), E 


69 


35 


"'3 


INC, HL 


70 


114 


72 


LD CHL) , D 


71 


14 


0E 


LDC, N 


70 


t=:o 


TA 


M 
IN 


73 


195 


C3 


JP 


74 


37 


25 


N 


75 


64 


40 


N 



Line #71 : Reject Direction 



STEP# DECIMAL HEX STATEMENT 




1 



9 
10 
11 
12 

1 o 

15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 



27 
28 
29 
30 
31 



S3 


53 


11 g II 


14 


0E 


LDC, N 


35 


24 


N 


205 


CD 


CALL 


37 


25 


N 


64 


40 


N 


14 


0E 


LDC, N 




21 


N 


205 


CD 


CALL 


37 


25 


N 


64 


40 


N 


14 


0E 


LDC, N 


T,7 


25 


N 


205 


CD 


CALL 


37 


25 


N 


64 


40 


N 


14 


0E 


LDC, N 


T9 


20 


N 


205 


CD 


CALL 


37 


25 


N 


64 


40 


N 


oo 


21 


LDHL, NN 


42 


2R 


N 


64 


40 


N 


5o 


35 


DEC, CHL 


32 


20 


JRNZ 


3 


03 


© 


•■^ tr 


El 


POP, HL 


225 


El 


POP, HL 


201 


C9 


RET 


14 


BE 


LDC, N 


51 




N 



98 
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Line #71 : Reject Direction (Cont'd) 



STEP# 


DECIMAL 


HEX 


STATEMENT 


32 


205 


CD 


CRLL 


TT 


37 


25 


N 


34 


G4 


40 


N 


35 


14 


0E 


LDC»N 


3G 


52 


34 


N 


37 


195 


C3 


JP 


38 




25 


N 


39 


64 


40 


N 



Line #100: Plus Screen Address 



STEP# 


DECIMAL 


HEX 


STATEMENT 


STEP# 


DECIMAL 


HEX 


STATEMENT 





68 


44 


"D" 





6S 


44 


"D" 


1 


46 


2E 


(PERIOD) 


1 


46 


2E 


(PERIOD) 




46 


2E 


(. PERIOD) 




45 


2E 


(PERIOD) 










3 


45 


2E 


(PERIOD) 



Line #101: Zero Screen Address 



(23) 33D (7 PERIODS) 

(24) 255 LPRINT"!" 

(25) 1000 DATA83,1 ,5,1 91 ,205,37,64,201 

(26) 1011 RESTORE:F0RN=0TO7:READD:POKEL+N:NEXTN 

And now, after running this program, add the 
following lines and run the program again to test line 
33: 

(27) 254 FORN=1TO20 

(27) 255 FORM=1TO80:NEXTM:CLS:FORM=1TO80 NEXTM N 
STOP 

If all is well, the screen should flash on and off 20 
times each time the program is run. if this does not 
happen, load the last saved program and check for 
errors! 

The only difference between the contents of line 33 
and line 32 is that step 3 loads the B register with 
128D or 80H, which is the graphics "clear" block 
when printed. 

To add line 32 to our program, make the following 
additions or changes and delete lines 254-256 and 
then save the program: 

(29) 32D (7 PERIODS) 

(30) 255 LPRINT" " (A SPACE IN QUOTES) 

(31) 1000 DATA83, 1,5, 128,205,37,64,201 

And, to test this line, run the program and then add 
the following line: 

(32) 260 STOP 

When the program is run again, the screen should 
be "cleared". After running the program, try this: 

(33) LPRINT"! MM" (NO LINE NUMBER) 

You should see the screen flash very quickly! 

If your program is working fine so far, we are now 
ready to build our game around the line packing 
framework we have set up. 

The Game "Plus Zero" 
In the game, "Plus Zero", the player moves a plus 
around the screen with the arrow keys. The machine 
moves a zero. The player tries to cause the plus and 
zero to collide. At a collision, the player's score is 
increased by the number of dots on the screen. These 
dots are left behind as the zero moves. A "high score" 
is also kept from game to game. When the zero comes 
to a screen boundary, all dots are erased and the zero 
seeks a new direction. It may "bounce" at the 
screen's edge two or three times while seeking this 
new direction. Only 20 of these bounces are allowed 



until the game is over. However, if a "hit" or collision 
occurs, the counter is reset to 0. If the plus runs into 
one of the dots left by the zero, the player loses and 
the game is over. Five playing speeds are offered, 
with the fifth being rather fast. Pressing CLEAR will 
drop the program from the machine language 
routines back to Basic and represents giving up. 
Line Packing "Plus Zero" 

Since this game is offered as an example of line 
packing only, a description of what each packed line 
does will not be included. But, since the complete 
machine language listing for each line is included 
with descriptive titles, it should be possible for the 
reader to discover how the game works. 

From here on, all of the packed lines will interrelate 
and can't be tested separately as packed. So we are 
going to pack all remaining lines, one after the other. 
Then the actual Basic of the program will be added, 
after which the program should be done. If all goes 
well, you will have a nice little program otherwise, 
you will have to try againl 

Let's get started - delete lines 250 to 1020. Then 
type in these lines: 

(24) 6D (57 PERIODS). BO 

(25) 250Q0=PEEK (16548) +PEEK (16549) *256+13 : 
Q2=INT(Q0/256) :Q1=Q0-Q2*256: 
POKE16421,195: P0KE16422,Q1: 
PQKE16423,Q2 

(26) 255LPRINTCHR$(6) 

(27) 1000DATA68, 1,132, 129, and so on from 
machine line listing of line #6... 

(28) 1010L=PEEK ( 16424) +PEEK ( 16425) *256-l 

(29) 101 1M=57 : RESTORE : PORN=0TOM: READD: 
POKEL+N , D % NEXTN 

(30) 1012FORN=0TOM:PRINTPEEK(L+N) ; : NEXTN; STOP 

When this program is run line 6 will be packed. Do 
not run this program more than once, since the 
packed line would be called without other necessary 
lines having been packed as yet! 

We see (at 34) the line of periods where the packing 
will occur. LPRINT is connected to line 2 in (35). Since 
the line in (34) is a "D" line, (36) returns with the 
address of the "D" line. The data to be packed is in 
(37). (More than one data line may be necessary for 
some packing). The line in (38) finds the starting 
address for the line to be packed, including the "D" or 
"S" at its start. The line is packed by (39) and, as a 
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double check, (40) prints out what has just been 
packed. It's a good idea to check this list against the 
Z80 listing each time a line is packed. 

When line 6 seems to be packed, go on to the next 
unpacked line, line 35. Do this to pack it: 

ENTER: 35D....(41 PERIODS) 

EDIT: 255LPRINTCHR$(35) 

ENTER: 1000DATA83,6,32,62, and so on from 

machine language listing of line#35 

EDIT: 1011M=41: The rest of line stays the 

same 

Now, run the program and line 35 should be packed 
(run only once!). 

Follow this process of entering a "D" line with 
periods for each line to be packed. Change lines 255, 
1000 and 101 1 each time. Run the program once 
each time. 

Lines 1 00 and 101 need not be packed. They may 
be entered as follows: 
100D.. 
101D... 

Lastly, delete lines 255 through 1 020 and enter the 
Basic lines as shown in the Basic listing for "Plus 
Zero" (Figure 1 3). Be sure to save the program before 
you run it! 

The game should now be ready to run. If things go 
wrong, you may have to start over. Or you could try to 
see what kind of thing went wrong, and redo the line 
or lines that seem related to that problem. Using 
machine language can be veryfrustrating since every 
byte has to be correct. There are no error traps, such 
as Basic has, and things can really crash! 

Good luck, and have fun! 



1 GOTO250 

2 (PACKED SUBROUITNE : 
36 STEPS . ) 

5 (PACKED SUBROUTINE : 
13 STEPS . ) 

6 (PACKED DATA: 
57 STEPS . ) 

32 (PACKED SUBROUTINE: 
7 STEPS.) 

33 (PACKED SUBROUTINE: 
7 STEPS . ) 

35 (PACKED SUBROUTINE : 
41 STEPS . ) 

36 (PACKED SUBROUTINE : 
28 STEPS.) 

37 (PACKED SUBROUTINE : 
15 STEPS.) 

50 (PACKED SUBROUTINE: 
38 STEPS . ) 

51 (PACKED SUBROUTINE : 
31 STEPS . ) 

52 (PACKED SUBROUTINE : 
19 STEPS . ) 

53 (PACKED SUBROUTINE : 
21 STEPS . ) 



LINE FINDER. 
SCREEN PAINTER. 
DATA FOR ZERO MOVE. 
CLS. 
ALL ON. 
SCREEN FLASH. 
SET ZERO DIRECTION. 
UP SWEEP. 

PRESET PLUS AND ZERO, 
SET PLUS ON SCREEN. 
SET ZERO ON SCREEN. 
COUNT DOTS. 



55 (PACKED SUBROUTINE: GAME CONTROL . 
51 STEPS . ) 

60 (PACKED SUBROUTINE: KEY PRESS. 
90 STEPS . ) 

61 (PACKED SUBROUTINE : MOVE PLUS. 
80 STEPS . ) 

70 (PACKED SUBROUTINE : MOVE ZERO. 
75 STEPS . ) 

71 (PACKED SUBROUTINE : REJECT DIRECTION. 
39 STEPS . ) 

100 (PACKED DATA: PLUS SCREEN ADDRESS . 

2 STEPS . ) 

101 (PACKED DATA: ZERO SCREEN ADDRESS. 

3 STEPS . ) 

250 00»PEEK( 16548 )+PEEK( 16549 )*256+13 : Q2-INT(Q0/ 
256):Q1»QO-Q2*256:POKE16421,195:POKE16422,Q1 
:P0KE1 6423,Q2 

260 H=0 

270 CLS : PRINT@202 , CHR$ ( 34 ) ; "PLUS ZERO";CHR$(34); 

M (C) 1981 LEO CHRISTOPHERSON" : PRINTTAB(7 ) M C0 

NNECT TAPE AUX PLUG TO AMP FOR SOUND EFFECTS . " 
280 PRINT@325, M T0 START, ENTER SPEED FACTOR: 1 ( 

SLOW) TO 5 (FAST) . " 
2 90 PRINT : PRINTTAB (23) "INSTRUCTIONS : " : PRINT" ( 1 ) 

PRESS *';CHR$(34); "CLEAR";CHR$(34);" TO END ACT 

ION." 

300 PRINT" (2) USE THE ARROW KEYS TO MOVE THE PLU 
S." 

310 PRINT" (3) IF THE PLUS AND ZERO HIT EACH OTHE 
R, YOUR SCORE INCREASES BY THE NUMBER OF DOTS 
LEFT ON THE SCREEN BEHIND THE ZERO." 

320 PRINT" (4) IF YOU HIT A DOT, YOU'RE OUT!" 

330 PRINT" (5) IF YOU ALLOW THE ZERO TO BOUNCE OF 
F THE SCREEN EDGE 20 TIMES WITHOUT SCORING A H 
IT, THE GAME IS OVER!" 

340 K$-INKEY$:IFK$=""THEN340 

350 IF(K$<"1 " )0R(K$>"5 " )THEN340ELSEONVAL(K$ ) 
GOTO360 ,370 ,380 ,390 ,400 

360 S«255:GOT0410 

370 S«200:GOT0410 

380 S-150:GOT0410 

390 S«100:GOT0410 

400 S-70 

410 POKE16428 , S : CLS : T=0 : 

PRINT@405 , "ONE MOMENT PLEASE ! " 
420 LPRINTCHR$ (6 ) : L-PEEK( 16424 )+PEEK( 16425 )*256 : 

FORN-1T056 : R-RND(56 ) : A-L+N : B-L+R: C-PEEK(A) : 

POKEA , PEEK( B ) : POKEB , C : NEXTN 
430 CLS:P0KE16426,20:P0KE16427,1:LPRINT"$27": 

0NPEEK( 16427 )GOT0440 ,450 ,490 ,480 
440 CLS : IFPEEK(16426)=0THEN480ELSE510 
450 POKE16426 , : LPRINT"5 " : T=T+PEEK( 16426 ) : 

LPRINT"# " : PRINT@408 , "HIT : SCORE ";T 
460 IFT>HTHENH="T 

470 PRINT@472,"HIGH SCORE ";H:G0T0420 
480 LPRINT"#":PRINT@405 , "GAME OVER: SCORE ";T: 
GOT0500 

490 LPRINT " # " : PRINT@404 , "YOU 'RE OUT: SCORE ";T 
500 PRINT@472 , "HIGH SCORE ";H 
510 PRINT: 

PRINT@527 , "ANOTHER GAME? (Y)ES OR (N)O" 
520 PRINTTAB (22 ) " (C)HANGE SPEED?" 
530 K$-INKEY$:IFK$-""THEN530ELSEIFK$-"Y"THEN410 

ELSEIFK$»"C"THEN270ELSEIFK$»"N"THENEND 
540 GOT0530 # 
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Have you ever had the urge to put on your space 
helmet, grab your laser sword and stomp the living 
daylights out of a few green meanies? Well, here is 
your chance. Marauder is based on a popular arcade 
game. You must move and fire your cannon, 
destroying as many of the marauders as possible. 
Since the program is written in Basic, naturally it is 
not as fast as the arcade version. To make up for this, 
it is somewhat more difficult to destroy the creatures 
than it is in their version. 

Several of the lines of the program are interesting 
in themselves. After the first page of instructions is 
printed, line 280 waits for a key to be pressed to 
continue. This in itself is not unusual, but instead of 
using INKEY$, this line peeks at location 1 4591 . This 
location contains zero, until a key is pressed. This 
technique is also used in line 520 to determine if a 
key has been pressed. By making Q$ equal to the 
control keys, (J,K,L), it is possible to use a FOR. ..NEXT 
loop to find the key that has been pressed. This 
method eliminates three IF. ..THEN statements, and 
improves the speed of the game. 

The sound producing routine is stored in line 430, 
and is from the article, "Sounding Off!" in the 
May/Jun 1 980 issue of 80-U.S. Journal. This routine 
is actually a machine language routine that is packed 
into a Basic string. The line is packed into the string 
by lines 6000 to 6080. The program tests to see if you 
are in disk Basic or Level II Basic, and sets up the USR 
command accordingly. 

The program is complete, but like all programs, 
there is plenty of room for improvement. To help 
those who wish to customize the program, here is a 
more detailed look: 



Charles A Quante 



10 Clear memory for strings and 
define integer variables. 
20-200 Graphic Cover-draws a saucer, 
using poke graphics. 
230-270 first page of instructions 
280 Peeks at 14591 until a key 
is pressed 
290-320 Second page of instructions 
400-420 Strings for the cannon and 
Marauders 
430- Machine language routine 
packed in string X$ 
450-460 Sets up USR for DOS or L2 Basic 
470-480 Chooses random creature 

490- Fills L( ) with the print locations 
for the creatures 
500-510 Prints playing field 

520- Peeks location 14591 again 
530- Checks to see if pressed key s 

is a control key. 
540- If key was control key, branch 
to command 
550-61 If key was not control key, move 
creature and branch to fire 
routine 

620- Move cannon left, but not off 

the screen 
630- Produce cannon fire sound 
640 Wait till key is released, then 

branch to user fire routine 
650- Move cannon right, but not off 
the screen 
660-690 User fire routine, user must hit 
the creature dead center when 
its 'mouth' is open. 
700-780 Creature fire routine 
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Fun & Games- — 

10 CLS : CLEAR200 :DEFINTA-Z : AP-15360 
20 DL=63 : FORI=0TO31 : POKEI+AP ,191: POKEAP+DL ,191:D 
L=DL-1:NEXT 

30 DL=127: FORI=64TO90 : POKEI+AP ,191: POKEDL+AP ,191 
: DL=DL-1:NEXT : POKE 91 , 135 : P0KE100 ,139: P0KE95+AP 
s 188:POKE96+AP,188 
40 DL= 1 9 1 : FORI= 1 2 8TO 1 4 8 : POKE I+AP ,191: POKEDL+AP , 1 
91 :DL=DL-1: NEXT :DL=1 70 ;FORI=149T0150: POKEI+AP, 
143: POKEDL+AP ,143: DL=DL-1 : NEXT : DL=1 68 : F0RI= 1 5 1 
TO 1 54 : POKEI+AP ,131: POKEDL+AP ,131: DL=DL-1 : NEXT 
50 DL=255 : FORI=192TO208 : POKEI+AP ,191: POKEDL+AP , 1 
91 : DL=DL-1 : NEXT : DL=238 : FORI=209TO21 : POKEI+AP , 
131: POKEDL+AP ,131: DL=DL- 1 : NEXT : DL=2 3 3 : FORI =2 1 4 
T0220 : POKEAP+I ,176: POKEDL+AP ,176: DL=DL-1 : NEXT 
60 DL=319:FORI=256T0270:POKEAP+I,191:POKEDL+AP,l 
91 : DL=DL-1 : NEXT : POKE27 1 , 143 : POKE304 ,143: POKE27 
6,176 :P0KE299 ,176 :DL=298 :FORI=277T0284 :P0KEAP+ 
1*191: POKEDL+AP ,191: DL=DL- 1 : NEXT 
70 DL=383 : FORI-320T0333 : POKEI+AP ,191: POKEDL+AP , 1 
9 1 : DL=DL-1 : NEXT : POKE 3 6 9 , 1 3 1 : POKE 3 3 4 , 1 3 1 : POKE3 3 
9 , 188 : POKE364 , 188 :DL=363 : : FORI=340T0348 : POKE I + 
AP , 1 9 1 : POKEDL+AP ,191: DL=DL- 1 : NEXT 
80 DL=447 : FORI=384T0386 : POKEI+AP ,191: POKEDL+AP , 1 
91 : DL=DL-1 : NEXT : DL=444 : FORI=387T0396 : POKEI+AP , 
143 : POKEDL+AP , 143 : DL=DL-1 : NEXT 
90 POKE448+AP , 191 : POKE51 1+AP , 1 91 : POKE 4 4 9+ AP ,131 : 

POKE510+AP,131 
100 P0KE5 12+AP ,191: POKE 57 5+AP ,191: P0KE51 3+AP , 1 80 

: POKE 5 7 4+AP , 1 84 : POKE 5 1 4+AP , 1 7 6 : POKE 5 7 3+AP ,176 
1 10 DL=639 : FORI-57 6T0579 : POKEI+AP ,191: POKEDL+AP , 
191 :DL=DL-1 : NEXT : POKE580+AP , 189 : POKE 6 3 5+AP ,190 
: POKE581+AP , 188 : P0KE634+AP ,188: POKE582+AP ,176: 
POKE633+AP ,176: POKE 5 8 3+AP , 144 : POKEAP+632 , 160 : P 
0KE603+AP,! 60 : POKE 6 12+AP, 144 
1 20 POKE604+AP ,190: POKEAP+6 11,189: DL=6 1 : F0RI=6 
5T0607 : POKEI+AP ,191: POKEDL+AP ,191: DL=DL-1 : NEXT 




Power Line Spikes, Surges & 1 

Hash could be the culprit! I 

Floppies, printers, memory & processor often interact! Our unique I 

ISOLATORS eliminate equipment interaction AND curb damaging I 

Power Line Spikes, Surges and Hash. I 

• ISOLATOR (ISO-1) 3 filter isolated 3-prong sockets; integral 
Surge/Spike Suppression; 1875 W Maximum load, 1 KW load any | 
socket • •••••• ■• $62.95 

• ISOLATOR (ISO-2) 2 filter Isolated 3-prong socket banks; (6 
sockets total); Integral Spike/Surge Suppression; 1875 W Max 
load, 1 KW either bank $62.95 

• SUPER ISOLATOR (ISO-3), similar to ISO-1 except double 
filtering & Suppression $94.95 

• ISOLATOR (ISO-4), similar to ISO-1 except unit has 6 
Individually filtered sockets $106.95 

• ISOLATOR (ISO-5), similar to ISO-2 except unit has 3 socket 
banks, 9 sockets total $87.95 

• CIRCUIT BREAKER, any model (add-CB) Add $ 8.00 

• CKT BRKR/SWITCH/PILOT ( CBS) Add $16.00 

Master-Charge, Visa, American Express 

Order Toll Free 1-800-225-4876 Circle 54 

(except AK, HI, MA, PR & Canada) 



130 DL=703 : FORI=640T0648 : POKEI+AP ,191: POKEDL+AP , 
191: DL=DL-1 : NEXT : P0KE64 9+AP ,188: POKE 6 9 4+AP ,188 
: P0KE650+AP ,180: POKE 6 9 3+AP ,184: POKE651 +AP ,176: 
POKE69 2+AP ,176: POKE66 6+AP ,184: POKE67 7+AP , 1 80 : D 
L=6 7 6 : FORI =6 6 7 T06 7 1 : POKE I +AP , 1 9 1 : POKEDL+AP ,191 
: DL=DL-1 : NEXT 

140 DL=767 :F0RI=704T0 735 : POKEI+AP ,191 : POKEDL+AP , 
191 :DL=DL-1: NEXT 

150 DL=831:FORI=768T0781: POKEI+AP, 191 : POKEDL+AP, 
191: DL=DL-1 : NEXT : POKE8 1 7+AP , 1 9 1 : POKE8 1 6+AP ,191 
: POKE AP+8 1 5 , 1 9 1 : DL=8 1 4 : FOR I « 7 8 2 TO 7 9 9 : POKE I +AP , 
143 : POKEDL+AP , 143 : DL=DL- 1 : NEXT 

160 DL=895 : FORI=832T0845 : POKEI+AP ,191: POKEDL+AP , 
191: DL=DL- 1 : NEXT : FORI =1 T03 : POKEDL+AP ,191: DL-DL 
-1:NEXT 

170 DL=959:FORI=896T0927 : POKEI+AP, 191 : POKEDL+AP , 

191 :DL=DL-1 : NEXT 
180 DL=1023:FORI=960T0991 : POKE I+AP ,191: POKEDL+AP 

,1.91 :DL=DL-1 : NEXT 
190 PRINT@527,"<M> <A> <R> <A> <U> <D> <E> <R> " ; 
200 PRINT@847,"<M> <A> <R> <A> <U> <D> <E> <R>"; 
210 FORI-1TO10 

220 PRINT@847," "; 
: FORJ=l T0300 : NEXT : PRINT084 7 , " <M> <A> <R> <A> < 
U> <D> <E> <R>"; :F0RJ=1.T0300: NEXT: NEXT 

230 CLS:PRINTTAB(14)"* <M> <A> <R> <A> <U> <D> < 
E> <R> *":PRINTSTRING$(64, "="); 

240 PRINT: PRINT" YOU ARE PITTED AGAINST SIXTY 
OF THE MOST HORRIBLE MARAUDERS " : PRINT "OF SPACE 
. YOUR MISSION, SHOULD YOU DECIDE TO ACCEPT I 
T, IS TO" : PRINT"DESTROY ALL SIXTY OF THEM, (OR 
AS MANY AS YOUR SKILL ALLOWS YOU" 

250 PRINT"TO), THUS SAVING DEAR OLD MOTHER EARTH 
!": PRINT: PRINT" THERE IS A PROBLEM THOUGH . 
WHILE YOU ARE TRYING TO DESTROY" : PR'I NT"THEM , 
THEY WILL TRY TO DESTROY YOU! IF THEY DESTROY 
YOUR THREE" 

260 PRINT "CANNONS, THE GAME IS OVER AND THE EART 

H IS LOST! BUT DON "T" : PRINT "DESPAIR , YOU MIGH 

T DO BETTER NEXT TIME.": PRINT 
270 PRINTTAB(19) "PRESS ANY KEY TO CONTINUE . " 
280 IFPEEK( 14336+255 )=0THEN280ELSECLS 
290 PRINT" OH YES, ONE MORE THING, TO MOVE YOU 

R CANNON TO THE LEFT" : PRINT"PRESS THE <U> KEY . 
TO MOVE RIGHT, THE <0> KEY, AND TO FIRE THE" 

:PRINT"<I> KEY. ALSO SINCE YOUR EQUIPMENT IS 

NOT EAXCTLY NEW, IT MAY" 
300 PRINT"BE A LITTLE SLOW TO RESPOND . " : PR1 NT 
310 PRINTTA3(16); :INPUT"DO YOU ACCEPT THE CHALLE 

NGE " ; G$ : G$=LEFT$ (G$ , 1 ) 
320 IFG$="Y"THEN330ELSEPRINT"OKAY , C-H-l-C-K-E-N 

-!-! GOODBYE ! " : END 
330 CLS 
340 CLEAR200 
350 RANDOM 
360 DEFINTA-Z 

370 DIMP(60),L(60),K(60),E(12) 
380 Z=960:MI=3:Q$="U10" 
390 S$=STRING$(5,191) 

400 C$=CHR$ (32 )+CHR$ ( 184 )+CHR$ (191 )+CHR$ ( 1 80 )+CH 
R$(32) 

410 A$ ( 1 )=CHR$ ( 32 )+CHR$ (167 )+CHR$ ( 140)+CHR$ ( 155 ) 
+CHR$ ( 32 ) : A$ (2 )=CHR$ (32 )+CHR$ ( 1 82 )+CHR$ (140 )+C 
HR$(185)+CHR$(32) 
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420 A$ ( 3 ) =CHR$ (32 )+CHR$ (182 )+CHR$ ( 140 )+CHR$ ( 185 ) 

+CHR$ (32):A$(4) =CHR$ (32 )+CHR$ (182 )+CHR$ ( 1 88 )+C 

HR$(185)+CHR$(32) 
430 X$="l:l:l:l:l::l: : i:i : i :1:1: i :1:1:1:1 . 1:1:1: 

:1:1: 1:1:1:1:1:1:1:1:1:1:1:1:1:1:1" 
440 X1=PEEK(VARPTR(X$ )+l ) : X2=PEEK(VARPTR(X$ )+2 ) : 

X0=X2*256+X1 
445 GOT06000 

450 IFPEEK( 16396 )=201THENL=0ELSEL=1 
460 IFL=1THENDEFUSR=X0 : CMD "T" : ELSEP0KE16526 ,X1 : P 
0KE16527 S X2 

470 PRINTTAB( 14 ) ; : INPUT "RAP ID-FIRE OR SINGLE SHO 
T CANNON"; G$ : G$=LEFT$ (G$ , n : IFG$="R" RP=1:CLSE 
LSECLS 

480 F0RI= 1 T060 : Al =RND ( 4 ) : P ( I ) =A1 : NEXT 

490 X=64 : S=l : E=12 : FORJ=lT05 : F0RI=ST0E : L ( I )=X : X=X 

+5 : NEXT : X=X+1 28-60: S=E+1 : E=E+1 2 : NEXT 
500 F0RI=1T060:PRINT@L(I),A$(P(I)); :NEXT 
510 PRINT@897,S$; :PRINT@915,S$; :PRINT(?934,S$; :PR 

INT@952 ,S$; : PRINT@Z , C$ ; 
520 IFPEEK(14591)<>0 G$=INKEY$ : P0KE16537 , ASC(G$ ) 

:ELSEPOKE16537,0:GOT0550 
530 F0RI=1T03 : IFMID$ (Q$,I,1 ) =G$THEN540ELSENEXTI 
540 ON IGOT0620,630,650 
550 T=RND( 66 )+34 :R=RND(60 ) : POKEXO+6 , 1 
560 IFPEEK(L(R)+15361 )=32THEN520 
570 ONP(R)GOT0580,590,600,610 

580 POKEXO+16,T:M=USR(0):P(R)=2:PRINT@L(R),A$(P( 
R));:GOT0700 

590 POKEX0+16,T:M=USR(0):P(R)=l: P RiNT@L(R),A$(P( 
R)); :GOTO700 

600 P0KEX0+16,T:M=USR(0):P(R)=4:PRINT@L(R),A$(P( 
R)); :GOT0700 

610 P0KEX0+16,T:M=USR(0):P(R)=3:PRINT@L(R),A$(P( 
R)); .-GOTO700 

620 IFZ=960PRINT@Z,C$;:GOTO550ELSEZ=Z-l:PRINT@Z 
C$;:G0T0520 ' 

630 POKEXO+6 , 3 : POKEXO+34 , 5 : M=USR( ) 
640 IFPEEK( 14591 )=0THEN660 : ELSEIFRP=lTHEN660 : ELS 
E640 

650 IFZ=1018PRINT@Z,C$; :GOT0550ELSEZ-Z+l :PRINT@Z 

,C$; :G0T0520 
660 AA=(Z-64)+2 

670 PRINT@AA,"["; : TT= (AA-64 )+15360 :TP=PEEK(TT) : I 
FTP=320RTP=140THEN680 : ELSEPRINT@AA , CHR$ (32 );:G 
OT0520 

680 IFTP=140PRINT@AA , CHR$ ( 32 ) ; : PRINT0TT-1536 1 ST 
RING$ (3,32); : G0SUB860 : ST=ST+1 : PRINT@0 , "HITS ' SO 
FAR:"; ;ST; :IFST=60THEN800:ELSE:GOT0520 

690 PRINT@AA,CHR$(32); : AA=AA-64 : IFAA<63THEN520EL 
SEPRINT@AA,"["; :GOT0670 

700 PRINT@45 , "CANNONS : "; ;MI; 

710 W=RND( 12 ) : IFE(W)=1THEN710ELSES=48+W 

720 FORI=STOWSTEP-12:IFPEEK(15360+L(I)+l)=32NEXT 
ELSE740 

730 E(W)=l:GOTO/lu 

740 MM=L(I)+15360+66 

750 IFPEEK(MM) O32THEN770 

760 PRINT@MM-15361,CHR$(92); :PRINT@MM-15361 ,CHR$ 
(32) ; :MM=Mtff64 : IFMM-15361>1023GOT0520ELSEGOT07 
50 

770 PP=MM-15360 

780 IFPP=Z+1 ORPP=Z+2 OR PP=Z+3 0RPP=Z+4PRINT@MM 
-15360, CHR$(32); : PRINT@Z , STRING$ (5,32);: FORI'l 



T050 : NEXT : PRINT@Z ,C$; : FORI=1T050 : NEXT : PRINT@Z 

STRING$ ( 5 , 32 ) ; : z=960 : PRINT@Z , c$ ; : MI=MI-1 : G0T07 

90ELSEGOT0520 
790 IFMI=0PRINT@54,MI; :ELSEG0T0820 
800 PRINT@74,"GAME OVER - TRY AGAIN (<Y>ES OR <N 

>0)?"; 

810 G$=INKEY$s IFG$="Y"THENRUN330:ELSEIFG$="N "THE 
NEND : ELSEGOT08 10 

820 IFMI=2THENH= 129: F0RI= 1TO60 : L ( I ) =L ( I )+H : NEXT : 

ELSEH=128:F0RI=1T060:L(I)=L(I)+H:NEXT 
830 POKEXO+6 , 1 : POKEXO+l 6 , 4 

840 FORI=1T060 : IFI<13THENPRINT@L(I)-H , STRING$ ( 5 , 
32 ) ; 

850 IFK(I)=OPRINT@L(I),A$(P(I));:M=USR(0):NEXT:G 

0T0520 : ELSENEXT : G0T0520 
860 TZ=TT-15362 : F0RI=lT060 :IFL(I) OTZNEXT : RETURN 

:ELSEK(I)=1:RETURN 
6000 DATA 74 

6010 DATA 33,1,2,14,255,62,1,254,2,40,21,254 
6020 DATA 3,40,38,17,200,100,237,97,67,16,254,23 

6030 DATA 105,67,16,254,21,32,243,201,17,1,5,123 
6040 DATA 237,97,71,16,254,237,105,71,16,254,60, 

6050 DATA 243,21,32,239,201,17,100,5,123,237,97, 
II 

6060 DATA 16,254,237,105,71,16,254,61,32,243,21, 
6070 DATA 239,201 

6080 RESTORE : READH : F0RN=0T073 : RE ADD : POKEXO+N ,D : H 
-H-l: NEXT :IFHO0PRINT "CHECK-SUM ERROR. PLEASE 
CHECK YOUR DATA STATEMENTS. (6000-6070) ":END:E 
LSEPRINT "WHEN 'READY' APPEARS, DELETE LINE 44 
5 , THEN TYPE RUN330 . " : DELETE6000-6080 m 
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TRS-80 Model I owner: would you like to own a 
44 track drive, with 85 free granules to play with on 
data diskettes? Your Radio Shack drive just might 
have nine extra tracks that Tandy didn't tell you 
about. 

Or, do you wish that your system had the 
intelligence to realize that you already know what 
programs are contained on your system disk in drive 
0, and that when you type DIR, what you would really 
like to see is a directory of drive 1? 

Perhaps you own drives with different track 
counts, say one 35 track and one 40 track unit, and 
get hung up making full diskette copies from one to 
the other. Is the biggest problem in your life 
remembering to disable the automatic keyboard 
debounce routine when you try to play a cassette 
ADVENTURE which you have transferred to disk? 

With NEWDOS80, you can build a custom disk 
operating system that will take some of these little 
hassles out of your life. Take, for example, the 
discovery of a 44 track Tandy disk drive. 

Before NEWDOS80, we had used a 35 track Disk 
Operating System, and a 40 track DOS on our 
twodrive system. The hardware consists of one older 
Shugart-type 35 track Radio Shack disk drive, and 
one newer Tandon-built Radio Shack drive. The 
Shugart is used as drive 0, with a 35 track system disk 
containing the 40 track NEWDOS+, plus some 
frequently used utilities and applications programs. 
The Tandon drive, which functioned well as a 40 
track unit, was used with data diskettes almost 
exclusively. The configuration was fairly convenient, 
with several exceptions. One of these was the need 
to switch to a 35 track DOS whenever I wanted to 
copy 35 track disks. 

Enter NEWDOS80. This disk operating system is 
smart enough to remember the track counts of every 
drive in your system. In our case, we entered the 
following PHYSICAL DRIVE (PDRIVE) command to 
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tell the system that our first drive had only 35 tracks: 
PDRIVE,:0,:Q,DTO35 
The first :0 indicated the drive in which the 
SYSTEM diskette that was being modified was 
located, and the second :0 pointed to the drive for 
which the new specification was being made. With 
the DTC (drive track count) set equal to 35, the system 
will never try to look for or FORMAT more than 35 
tracks on that drive, unless the user specifically says 
to. Only DIR and FREE will see the extra tracks, if 
these have been formatted during some previous 
incarnation of the disk. 

For instance, a 40 track drive could be configured 
as with a 35 track default value. The operator could 
still access the other five tracks (if present) by one 
means or another, if desired. For Example: 
COPY :1=40 TO :2=40 11/18/80 

This wouid allow a full copy of a 40 track disk even 
if drives 1 and 2 had been setto 35 tracks via PDRIVE. 
Why would anyone use a drive to less than its full 
capacity? Someone with three 35 track units, and one 
40 track unit might want to have all drives the same 
for convenience. Or, an operator waiting to install a 
data separator might wish to lock out the inner tracks 
to avoid problems in the meantime. 

This leads us to the discovery of the 44 track disk 
drive. Like most, we had heard of rumors that the 
latest Radio Shack drives were 77 track units in 
disguise, but had no 77 track DOS available to check 
this out. NEWDOS80 supports track counts up to 96. 
When trying to FORMAT a disk to 77 tracks, it was 
found that the drive hung up somewhere after 40 
tracks. 

After 40 tracks? FORMAT the same disk to 41 
tracks! It worked. Then we tried 42, 43, 44 and 45 
tracks. Only at the last did the drive finally hang up 
again. When we had our first 88-gran data diskette 
(85 grans after the system information had been 
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placed on it), we didn't really believe that we had 
those extra usable tracks. 

SUPERZAP agreed with us. It refused to look 
beyond 40. We had forgotten about PDRIVE. Once we 
reconfigured our SYSTEM for the new 44 track drive, 
SUPERZAP was willing to look at the extra sectors 
and in fact, copies some data from one of the lower 
sectors to the new. It worked. 

NEWDOS80 allows the operator to build the sort of 
oddball disk operating system desired. There is more 
to PDRIVE, but let's digress to the new SYSTEM 
command first to show just how it can be used to 
build a custom DOS. 

SYSTEM allows the changing of certain default 
system options to other parameters. For example, on 
booting up, such features as keyboard debounce, JKL 
printing, and the new DFG entry into Mini-DOS are 
all enabled. (JKL and DFG are keys which are 
simultaneously pressed to activate the feature.) 
Passwords are automatically disabled. These options 
can be changed, for specific system diskettes so that, 
for example, on booting up the keyboard debounce 
routine is automatically disabled, with no further 
operator steps required. If all your ADVENTURES and 
other debounce-hating programs are contained on 
such a disk, you can run them without giving the 
shift-up-arrow (normal debounce disabling during 
boot-up) a second thought. You only need to 
remember to reboot for the new disk. 

The SYSTEM options are given labels, currently AA 
to AS. These are flagged with numeric or alpha 
characters to show how the options are set, much 
like the J=Y (justify=yes) in Scripsit shows that right 
justification has been turned on (or off), or the PL=88 
(Page Length is 88 lines) can indicate the page 
length. SYSTEM is invoked merely by typing 
SYSTEM, the password if any, the drive number in 
which the disk being updated is mounted, and the 
options being changed. For example: 
SYSTEM, :0,AA=Y 

This would re-enable password checking anytime 
that particular system disk is in use. More than one 
parameter can be changed at a time: 

SYSTEM, :0,AA=Y,AI=Y,AM=20 
With these changes, passwords would be enabled, 
the system would know that lowercase had been 
installed (SUPERZAP and DEBUG use this 
information), and the system would make 20 tries to 
complete a given disk I/O task before declaring an 
error (10 is the original value). 

After the SYSTEM command has been entered 
correctly, NEWDOS80 displays a several-line listing 
of all the current SYSTEM option flags and their 
values, allowing a quick check. The new options are 
put into effect the next time that disk is booted. 

The SYSTEM options, and their uses, are too 
numerous to cover here, but I'd like to discuss a few 
of them and how they lend themselves to custom 
DOS building. 
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• TRS-80 Model III Level II 16K $925.00 

• 16K Memory upgrade for Mod I, ill & Color $59.95 

• New Archbold Speed up board $44.95 

• 5Va" Verbatim Diskettes (Box of 10) $24.95 

• Vista V-50 40 track double sid^j disk drive $395.00 

• Vista V-800 80 track double sided disk drive $595.00 

• Vista V-8000 160 track double sided disk drive $795.00 

Drives include case & power supply but no cable. 

• Cable for 2 drives $23.95 

• Printer Multiplexer Box, handles up to 4 printers at the same 
time, user selectable. * 

• Epson MX-80 * 

© Vista V-300 Daisy Wheel Printer ★ 

• EPROM Programmer ★ 

• MAXI-ZAP for Model III $79.95 

(Greatly enhanced Super-Zap like Utility for Model III, written in 
machine code. Reads Model I and Model III Diskettes!) 

• Sea Gate Technoloy 5 Megabyte add on Winchester 
Dr ive for Model I only $2995.00 complete until June 1 , 1 981 . 



CALL OR WRITE FO 

* Please call for these price 
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Micro Mainframes 
714 Alhambra Blvd. 
Sacramento, CA 95814 
(916) 447-7048 



• Super Disk Controller. Allows you to read any soft 
sectored diskette. Single or Double Density! 

• Reads 5 l / 4 " and 8" Diskettes! 

• No additional hardware required to read 8" diskettes. 

• Enhanced storage capability of up to 800 kilobytes 
per drive with purchase of the 80 or 160 track drives. 

• Convert existing Model I software to Model III 
format* 

• Complete package includes Drive, Power Supply, 
Cables, Controller Board, Brackets and DOS. 

40 Track Drive - $775.00 
80 Track Drive - $895.00 
160 Track Drive - $995.00 

* Some programs may require patching to operate. 
Dealer Inquiries Invited 
Model III TRS-80 is a product of the Tandy Corp. 
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AL tells the system the number of drives. If you 
have only two drives, then AL=2 will limit the system 
from checking more than two when searching for 
programs, space for SAVE's, etc. This saves some 
time that can build up if a lot of disk I/O is done. 

AN is the default drive number for the DIR 
command. If your system disk remains in drive most 
of the time, and all your swapping is done between 
your other drive(s), it makes little sense to see a 
directory of drive every time you type in DIR. If 
AN=1 , then DIR will give you a directory of drive 1 
every time you enter it. AUTO DIR,CMD"DIR", and 
Mini-DOS will also show you drive 1 's directory. If 
you still want to see the directory of drive you can 
enter DIR :0. This option can save a few keystrokes 
and some frustration. 

Under normal conditions, when you type 
SAVE"filename" without a drive specification, the 
system will search for a file by that name and if none 
are found, attempt to create the file on the lowest 
number drive on which there is space. That's not so 
great if you have space on your SYSTEM disk, but 
would prefer that all the programs be saved on one of 
the others. The previous solution had been to 
remember to add the drive specification to the file 
name: SAVE"TEST/BAS:1 ". The AO system option 
eliminates that hassle. The lowest number drive that 
vill be searched and used for program saving can be 
pecified. For example, if AQ=1. then drive will be 
ignored and your SYSTEM disk remains in a pristine 
:; ■ e in future saves, 
lere are other SYSTEM options. The system can 
b at to operate in RUN ONLY mode (AB), the BREAK 
k can be disabled (AG). The features in Basic that 
'erts input lowercase characters to uppercase 
can be enabled or disabled. Or, even though 
swords are enabled, COPY can be used without 
- -'5 word checking (AR). With the latter, protected 
f i I-.:-;- can be copied by users without the correct 
pass /ord, even though they cannot be KILLED, 
LISTED, or even RUN (depending upon the level of 
protection.) 

Custom system building with NEWDOS can range 
beyond the convenient to the essential. PDRIVE has 
additional features that allow using the TRS-80 with 
a aty of non-Tandy hardware. More than the drive 
tr t count (DTC) can be specified - the type of 
inter. ace and drive itself can be configured using the 
command. Like SYSTEM, PDRIVE displays its current 
flag values whenever it is invoked. For example the 
most frequently used system disk displays the 
following PDRIVE information for drive 0: 

DTC=35 TI=A TD=A DDST=17 DDGA=2 

We have already discussed DTC. Tl (type of 
interface) shows the type disk controller used in the 
system. The A used in this case indicates that the 
standard TRS-80 Model I interface is used. 
Implemented in the current release of NEWDOS80 is 
OMIKRON's 8 inch disk drive interface. Those using 



MAPPER I and MAPPER II will be pleased to note that 
they can use NEWDOS80, and mix 5 and 8 inch 
drives without difficulty. If the OMIKRON interface is 
used, TI=B. 

NEWDOS80's documentation notes that an 
additional interface, C, has been defined for LOBO's 
expansion interface, but that this has not yet been 
implemented. LOBO users will have to check with 
Apparat to see if/when their hardware will be 
compatible with NEWDOS80. 

TD (type of drive) is used to specify the type of drive 
each unit is. The A in the example indicates that the 
drive is a 5 inch single density, singlesideddrive. B is 
used with 8 inch single density single sided drives. 
Not implemented are options C through H, which are 
various combinations of single and double sided, 
single and double density drives. 

It is possible that the next option to be implemented 
will be for 5 inch single sided, double density drives. 
The necessary zaps should be made available either 
by Apparat, some independent source, or a 
manufacturer of double density controllers, such as 
PERCOM. 

The other two options available under PDRIVE, 
DDST (Default Directory Sector Track) and DDGA 
(Default Directory Granule Allocation) allow 
additional system flexibility for TRS-80 Model I 
owners, but also hold forth the possibility of making 
disks crated under NEWDOS80 incompatible with 
TRSDOS, NEWDOS+, or other operating systems. 
DDST indicates the track used for the beginning of 
the disk directory. Track 17 is the standard for 
non-NEWDOS/80 systems, because it is halfway 
across the disk (just about) and is thus fairly close to 
the read/write head at either extreme of the disk. 
When DDST does not equal 1 7, other DOS's will not 
know how to find the directory. Use this option only if 
you understand what you are doing. 

DDGA allows changing the number of granules 
allocated to the directory. Two granules is standard, 
and should be used when a diskette will be accessed 
by non-NEWDOS80 systems. But, if you find yourself 
needing extra FDE's (file directory entries), for 
example, when putting a lot of programs on your 77 
track disk, this option will allow you to allocate up to 
six granules for the directory, for a total of 222 usable 
FDE's on a data diskette. 

All the changes discussed in this article are options 
available to the operator under NEWDOS80. The 
entries need to be made just once, and then every 
time a disk is booted up, the combination of features 
selected by the user become active. Disk operating 
systems must obviously be written to handle the 
needs of a wide variety of hardware configurations 
and operator needs. But, equally as obvious, some 
features not needed by every user, or needed every 
time the system is operated. Building a custom DOS 
saves the operator time and frustration by tailoring 
the system's response to the needs of the moment. • 
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INTERFACES FOR MICROCOMPUTERS ,. . 
a POS MEMORY/PORT MODULE for TRS-80 - Hero 

is a programmable device controller which plugs to 
theTRS-80 40-pin bus and provides 1.7K of PROM and/ 
or RAM plus 18 input and 18 output lines addressed as 
3 parallel ports. Designed as a controller for daisy-wheel 
printers and 9-track tape drives, its uses are limited only 
by one's imagination. Includes sockets for 1.7K RAM, 
1.7K EPROM, or IK PROM and .7I< RAM (memory ICs 
not included). Requires ±5 VDC, +1 2VDC power source. 
Memory is addressed at 3000H to avoid conflict with 
other system and user-available memory. Ship wt.: 3 lbs. 

Price $150.00 

o DAISY-WHEEL PRINTER INTERFACE for TRS-80: 

This interface will drive Diablo HyType I, HyType II, 
and Qume Q Series and Sprint 3 printers (specify cable 
required). Includes IK user-available memory for custom 
print routines (such as graphics, bidirectional printing, 
etc.). Programmed to respond to print commands from 
BASIC, ELECTRIC PENCIL™, and SCRIPSIT™ soft- 
ware. Draws its power from printer. Ship wt.: 5 lbs. 

Price $250.00 

Cables, each $ 25.00 

(Specify HyType I, HyType II, or Qume) 
• ASCII INTERFACE for IBM I/O SELECTRIC - 

This Centronics-style parallel printer interface will 
drive an IBM Model 731 or 735 I/O typewriter (EBCD 
and Correspondence codes). No software needed. 
Features on-board EPROM which holds up to 8 ASCII- 
to-IBM code translation tables for different type spheres. 
Closed-loop operation runs at maximum printer speed; 
stops and starts on a single character without loss of 
data. Requires +1 2VDC and ±5VDC power source. Ship 

wt.: 3 lbs. Price $249.95 

Power Supply $ 49.95 

(±5 VDC, +1 2VDC, +24VDC for Solenoids on Printer) 
© CONVERT 15" IBM OFFICE SELECTRIC to I/O 

TYPEWRITER - Kit includes assembled solenoids, 
switches, wire harness, magnet driver PCB plus instruc- 
tions for installation and mCPU interface. 
Price $200.00 
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Open up the world of IBM to the microcomputer. Now your micro can read and 
write IBM/ANSI compatible NRZ1 format 9-track magnetic tapes, as used on the 
largest IBM computer installations. Read government statistics. Write tapes that can 
be loaded into an IBM 370 computer. Here is an IBM-compatible interface that 
won't void the IBM warranty! 

A medium-speed (37.5 ips) 800 BPI tape drive can transfer data at a rate of 
30,000 characters per second, making it an ideal back-up storage media for the new 
hard-disk systems. The Phase-Encoded 1 600 BPI drives have twice the data capacity 
of the NRZ1 drive, and can hold up to 40 megabytes ofdata on a single reel of tape. 
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• POS-100 NRZ1 TAPE DRIVE 
CONTROLLER/FORMATTER - For over 2 years 

Pacific Office Systems has been quietly selling its 
POS-100 NRZl Tape Drive Controller/Formatter for 
"Pertec" industry standard NRZ1 tape transports and 
the S-100 computer. The POS-100 operates with 2K of 
8080 or Z-80 subroutines to Write a Record, Tape Mark 
or Check Sum Characters, Read a Record Forward or 
Backward, Go Forward or Backward a Record or File, 
Erase a Gap, Rewind, etc. Software also checks status of 
tape drive during operation and provides error messages. 
Software can be supplied on CPM or NorthStar diskette, 
or on EPROMs. 

The POS-100 consists of S-100 bus card, 6' ribbon 
cable, tape drive controller card, cable to Pertec-Standard 
NRZl Tape drive, plus documentation and Z-80 or 8080 
software (specify). Power is derived from tape drive and 
S-100 bus. Ship Wt.: 10 lbs. 

Suggested Retail Price $995.00 

Optional CPM utility programs to copy data from 
diskette to tape, from tape to diskette, and from tape to 
CRT or Printer (record length variable up to size of 
system memory).- Pr ice $100.00 

• REFURBISHED MAG TAPE DRIVES - Contact 
Pacific Office Systems for currently available refur- 
bished 800 BPI and 1600 BPI mag tape drives by such 
manufacturers as PERTEC, CIPHER DATA PRODUCTS, 
KF.NNEDY, etc. Prices vary according to capabilities and 
condition of each unit. 

PACIFIC OFFICE SYSTEMS 
918 Industrial Avenue 
Palo Alto, CA 94303 

(415)493-7455 Cjrc|e 52 



COMING SOON . . . 
• A bus adapter for the TRS-80 Model One (40-pin bus). 
a POSStand-ai ,ie 800/1 600 BPI Controller/Formatter: 
A microprocessor-based controller and formatter for 
both 800 BPI (NRZl) and 1600 BPI (PE) tape drives, 
with interfaces for serial RS-232 and 8-bit parallel ports. 
Controller is programmed to respond to simple ASCII 
commands to seek, read or write a file of data on tape 
via its 4K or 1 6K buffer memory. Interrupts can be used 
for status and command messages between controller 
and host CPU. Data transfer rates are expected to run as 
high as 19,200 baud (RS-232 serial port), and 100,000 
baud (8-bit parallel port). 
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A sophisticated Editor & 
Assembler setting the standard 
for the '80 Model I & Model 
III. All EDAS commands and' 
SOURCE text can be entered in 
either upper case or lower 
case. Direct assembly form 
memory or disk by means of "GET 
assembler directives. This 
gives text buffer capacity 
equal to your drive 

configuration! 30,000 bytes of 
symbol table. 

Direct assembly to disk or 
memory for faster debugging 
operations! DOS "system" 

command functions KILL, DIR, 
FREE, and LIST are available 
from within the environment of 
EDAS. 

The Editor, with renumber, 
maintains command syntax 
identical to the BASIC editor. 
Global change permits you to 
alter a string throughout a 
designated range of lines while 
block move relocates lines of 
text. 

EDAS is priced at $79 plus $3 
S&H. A 72-page manual included. 



Now you can append two or more 
CMD files and/or SYSTEM tapes. 
Perform transfer to & from 
disk/tape of SYSTEM/CMD modules 
with offset capabilities. Read 
VT0S ISAM overlays. More! $20 




LD0S is the latest generation of operating 
systems for the TRS-80 computers. LD0S is com- 
pletely documented in an extensive operating 
manual and total on-going support from some of 
the most knowledgeable people in the industry 
is provided. In short, LD0S is THE operating 
system to use with the TRS-80 computers! 

$139.00 

1 +$3 S&H 



• POS 103/202 "MIX or MATCH" MODEM - BELL 
103 and/or BELL 202 Frequencies: Unique POS 
control design permits use in one housing of both Bell- 
compatible 103 (0-300 baud) and 202 (0-1200 baud) 
modem modules originally made by VADIC Corp. for a 
telephone company subsidiary. FEATURES: RS-232 
serial interface, auto-answer, auto-dial, LED display, 
telephone line interface via acoustic coupler, manual 
DAA, or auto-answer DAA (sold separately). FULLY 
ADJUSTED; no special tools required. 3,000 mile range 
over standard dial-up telephone lines. 

— POS 103 MODEM $199.95 

— POS 202 MODEM $299.95 

-POS 202 MODEM (Auto-Answer) .... $349.95 

— POS 103/202 MODEM $499.95 

— FCC-approved Auto-Answer DAA .... $125.00 



Turn your Editor Assembler into 
a disk package. This 32K patch 
modifies EDTASM for DOS oper- 
ation. Features? Add full disk 
I/O, block move, global change, 
printer pagination with op- 
tional prompting, sorted symbol 
table, print memory utiliza- 
tion, correct DEFii expansion, 
protect memory, and recover 
after BOOT. From within the 
EDTASM you will have DIR, KILL, 
6 FREE. Upgrade your EDTASM 
today! Version for EDTASM+ 
coming soon. $20. 



Complement your assembly language tools with 
this Z80 disassembler which produces screen, 
printer, cassette, or disk file output. A two- 
pass process provides SYMBOLS for 16-bit ad- 
dress and 8-bit relative references. EQUat.es & 
ORG are generated. Read 
play load address range, 
disk use is $15) 



SYSTEM programs & dis- 
$20 (DSMBLR I for non- 




Specify Model I or Model III 



■J 



MIS0SYS - Dept U 
590*1 Edgehi 11 Drive 
Alexandria, Virginia 22303 
703-960-2998 MicroNET 7Cl40,310 
Dealer Inquiries Invited 
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THE B00K must be a part of your 
Z-80 language tools. Volume I 
gives you access to all math 
operations in your Level II ROM 
including ASCII-Binary conver- 
sions. Included is a symbol 
table of the entire machine 
noting over 500 addresses. 
Volume II tells you everything 
you wanted to know about the 
Level II 1/0 - printer, key- 
board, video, and cassette 
routines are fully explained. 
Each volume has a fully-com- 
mented listing of all the rou- 
tines discussed. THE B00Ks will 
save you hours of assembler 
program development time. Don't 
start programming without THE 
B00Ks. Each 'volume is priced at 
$1*1.95 + $1.50 S&H or buy both 
for $24.95. 
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For Mode 

There are times when programming can be a 
nightmare: Your client wants a minor change to his 
accounting package; your program crashes after 
months of use because an unusual condition 
triggered a previously unused/untested routine; a 
project you set aside three months ago needs to be 
finished; or even worse, you inherit someone else's 
program to debug and make work correctly. If these 
and other problems plague you as a programmer, 
then you need Radio Shack's Cross Reference Utility 
#28-2008 $14.95! 

The program will produce a cross reference table of 
line numbers, variables, or reserved words, or a 
combination of the three for any Basic program that 
has been saved on disk or tape. The output may be 
optionally sent to any printer with 80 or more 
columns. 

Documentation and program operation is 
straightforward and easy to use. The manual 
explains all options, including how to get the disk 
version on disk and how to back up your diskettes. 
The disk version resides in the 5500H to 5D40H 
range; tape, 4300H to 4932H. 

Once loaded from SYSTEM or DOS, the program 
will provide the user with a series of prompts, to be 
answered with a Y for yes and a N for no. The 
prompts, in order, are: 

PRINTER? 
LINE NUMBERS? 
VARIABLES? 
RESERVED WORDS? 
DISK? (disk version) or 
READY CASSETTE 

The disk version will prompt FILESPEC? If the 
program is not a Basic program (or if it is saved in 
ASCII, which is not wanted) the message CANT 
READ. TRY AGAIN? will be displayed. A negative 
answer will return to DOS, otherwise a positive 
answer will restart the prompts. 

A no response to the prompt DISK? will bring up the 
cassette prompt. The cassette Basic program will 
load only at 500 baud under its own routine so you 
can't generate a table from a 1 500 or 250 baud tape. 
Also, a dropped bit and subsequent bad load will 
make itself known only after you have started to 
generate the table (and particularly under Reserved 
Words). You will really know when disk reserved 
words show up in your tape only programs. 
Readjusting the volume will usually take care of this 
problem. The flashing asterisks are still there during 
tape loads. 



1 and 1,1 Torn Inter 

If you have opted for a printer output the results will 
start immediately to both screen and printer. The 
output looks like a duplicate of the screen, even to the 
ending prompt END OF LIST - RESTART? This leads 
me to believe that a function similar to DUAL (Model 
III) has been invoked for this option. By the way, if 
your printer is not ready (or not there) the program 
will hang up until a printer is made available. 

If you did not opt for printer output, you will be 
prompted to PRESS ENTER WHEN READY. The 
screen will scroll until everything has been displayed. 
The SHIFT@ combination will stop scrolling. 
Pressing ENTER will then terminate the run, while 
pressing any other key will continue the scrolling. By 
holding the SHIFT and alternately toggling the @ key 
and another key, you can control the display very 
nicely. 

At the end of the program you will be prompted 
END OF LIST - RESTART? An N will drop to the DOS or 
Level II (depending on which version you run) while a 
Yes will bring up the prompt SAME PROGRAM? If you 
enter a Y here, the first four prompts will again be 
given; otherwise, the program will restart. 

Many disk owners who have NEWDOS will want to 
know if this new utility outperformsthe REFfunction. 
See Figure 1 for a comparison of both utilities. 

Figure 2 is a sample program, while Figures 3 
through 5 are outputs of XREF and NEWDOS REF. 

The output is neat in appearance and uniform, 
though the leading zeroes are confusing until you get 
used to them. The printer output contains the ending 
prompt. 

The Model III DOS has a "REF" utility, which allows 
reference to one item at a time, be it reserved word, 
line number or variable. However, it functions as an 
INSTRING function on all but reserved words, 
producing somewhat misleading results. The XREF 
utility fu nctions as described equally on the the disk 
Model III. 

Looks like Radio Shack has scored again with 
another fine utility. The biggest objections are lack of 
getting just one variable or line number at a time; not 
being co-resident with Basic for editing purposes; 
and no leading zero suppression in the table. The 
advantages are: prompt driven; neat appearance; 
both tape and disk compatible; large program 
capability; reserved word table; separation of variable 
type and line numbers only. 

The advantages appearing to outweigh the faults 
would make this the preferred utility. It is an easy to 
use, versatile and powerful program. 
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a 
B 


Radio 


Shack's 


NEWDOS80; 


Descriptions 


XREF 


REF j 


4K Level 1 (Mod 1 or III tape) 


No 


No ■ 


16K Level II Mod l/lll 500 baud tape 


Yes 


No B 


16K Mod III 1500 or Level I 250 baud tape No 


NO H 


Disk, any size memory, Mod I 


Yes 


Yes B 


Disk, any size memory, Mod III 


Yes 


Unknown J 


Full size Basic program to limit of memory Yes 


No* I 


Pn-rpc;iHpnt with Raqip 


No 


res J 


Screen output 


Yes 


Yes j 


Screen pause in scan 


Yes 


Vac B 

t es j 


Printer output 


Yes 


Voc B 


Line numbers only 


Yes 


f 

No 8 


All real numbers and line numbers 


No 


Yes ■ 


All variables by full name 


Yes 


No * 


All variable types by separate rows 


Yes 


B 

No * 


All variables, including fielded types 


Yes 


a 

Yes a 


Dimensioned variables 


Yes 


Yes ■ 


Defined (as in DEFDBL, etc.) variables 


Yes 




All reserved words 


Yes 


no S j 


Single numbers, variables 


No 


Yes b 


Multiple occurance - count given 


No 


Yes ' 


Multiple occurance - separate reference 


Yes 


No I 


Prompt driven program 


Yes 


No I 


Requires parameters to execute 


No 


Yes i 

a 



Figure 4 

Variable references under XREF (above) and REF (below) Note the 
XREF returns all variables as well as the word AS in the fielding 
statement. Also note the 0$ from line 1 54. The program was tricked 
into a typical syntax error by not spacing between AS and CO$, 
creating the reserved word ASC and variable 0$. 

Note the ALPHA reference. While Basic will recognize only the AL 
portion, the utility recognized the entire word. Microsoft's BASCOM 
would also make the distinction. A nice feature not nor mally needed 



VARIABLE REFERENCES 

A 00001 00173 

AL 00020 00081 
ALPHA 00010 00130 

AS 00154 00154 

B 00001 00173 

B! 00030 00040 00079 00120 00120 001; 

C 00130 

C* 00079 00154 

D$ 00060 00063 

K$ 00154 

0* 00154 

X 00002 



:0 00130 00140 00150 



END OF LIST - RESTART? 



*REF function can cause OM? (out of memory) error with 
large programs while XREF makes use of normal program 
overhead and stack space to handle large programs 
including some slightly larger than would run in a given 
memory size. This is particularly true with disk Basic 
programs where Basic is not required for XREF to execute. 

laDBMBBaBniBBBiiBiBasBaaa^aiiiBsiaflfliBaiiMBBBBeBaaBBai 

Figure 2 

Sample, unusable program with bugs (many). Doesn't really do 
anything either 

1 DEFDBL A-B 

2 DIM X(20) 

10 FOR ALPHA = 100 TO 10 STEP -3 
20 IF AL=98 THEN 300 
30 FOR B)=l TO 3 

50) 60, 



A 

AL 

B 

C 

D 

K 



X 



1 173 

10 20 81 130 

1 30/! 40/! 79/! 

79/$ 130 154/* 

60/$ 63/$ 

154/$ 

154/$ 

2( 



120/13 130/! 140/! 150/! 173 



Figure 5 

Reserved words output from XREF returns all reserved words 
found in the program including mathematical and logical operators. 
Altogether quite impressive. 



5G 
60 
63 
65 
70 
75 



70 



ILLUSTRATES ALPHA" 



) 



ILLUSTRATES, ALPHA, 1, 3, 4, 



40 ON B! GOSUB 
45 GOTOS0 

PRINT"THIS" ; : RETURN 
READD* 

PRINT" "D$" " ; 
RETURN 
PRINT" 
RETURN 

79 LSET C$=MKI$(B 

80 PRINT : PRINT 

81 NEXTAL 

90 DATA SAMPLE, PROGRAM 
100 DATA TYPE, DATA 
110 STOP 

120 IF B!=3 THEN B!=B!+1 

130 C=S1N<B( ) *C0S ( 1 . 2 ) C 4/3*SSR ( ABS ( ALPHA ) ) 

140 PRINTUSING" ##" ;B! 

150 PRINT TAB (10)" THE " TAB < B ! ) " END " 

152 0PEN"R", 1, "SAMPLE/TXT" 

154 FIELD1, 2 AS C$, 2 AS K$, 2 ASC$, 3 ASC0* 
156 CLOSE 
160 END 

166 IF ERR/2+1 = 23 AND ERL=60 THEN STOP ELSE RESUME 100 
173 IF A=3 OR B=2 THEN 20 ELSE 30 

■ ■■■JaiBaiaiajfliBtaiBiaBiBiMBiaitfaiBiaiBiaaiBiaiaiaiBi mam BiEiaBiQEaEiBlBieiBiQEIBlaGIBlBlBi&iei! 

Figure 3 

Output from XREF left and REF right. Note the LINE NUMBERS 
under XREF return only line numbers. This is not true of NEWDOS 
which returns all numbers whether constants, line numbers, buffer 



a VERB 
a END 
a FOR 
! NEXT 

■ DATA 
i DIM 

■ READ 
B GOTO 
i IF 

\ GOSUB 

■ RETURN 
! STOP 

■ ELSE 

' i DEFDBL 
a RESUME 
b ON 
» OPEN 
I FIELD 
; CLOSE 
a LSET 
J PRINT 
a TAB ( 

■ TO 

a USING 
I ERL 
a ERR 
.»■«", THEN 
a STEP 



numbers or whatever. 












B 
B 


C 


00130 


LINE 


REFERENCES 












B 


AND 


00166 


00020 


00173 


1 


30 120 


152 


154 


166 


B 


OR 


00173 


00030 


00173 




154/3 


166 


173 


B 




00010 


00050 


00040 


3 


10 30 


120 


130 


154 173 


a 




00173 


00060 


00040 


4 


130 






■ 


ABS 


00130 


00070 


00040 


10 


10 150 








B 

B 


SQR 


00130 


000B0 


00045 


20 


2 173 








B 


COS 


00130 


00100 


00166 


23 


166 








B 
B 


SIN 


00130 


00300 


00020 


30 


173 










MKI$ 


00079 


END OF 


LIST - RESTART? 


50 


40 








B 


ASC 


00154 






60 


40 166 
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END OF 


LIST - 






70 


40 








a 










80 


45 








a 
a 










98 


20 








a 










100 


10 166 








a 
a 










300 


20 








a 







REFERENCES 
00160 

00010 00030 
00081 

00090 00100 
00002 
00060 
00045 

00020 00120 00166 00173 
00040 

00050 00065 00075 

00110 00166 

00166 00173 

00001 

00166 

00040 

00152 

00154 

00156 

00079 

00050 00063 00070 00080 00080 00140 00150 

00150 00150 

00010 00030 

00140 

00166 

00166 

00020 00120 
00010 

00120 00166 
00001 00010 
00130 00130 
00130 00166 



3166 00173 



)120 00120 00130 00166 00166 
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For the TRS-80 Model I 



How many times have you gotten your Basic 
program loaded or written, and realized that you 
needed a printer driver, or a monitor, or a renumber 
routine for which you failed to reserve memory? The 
normal procedure is to CSAVE your Basic program, 
type SYSTEM ENTER /0 ENTER, set the appropriate 
memory size, load the machine language program, 
then reload your Basic program. 

MEMORY will eliminate some of those time 
consuming cassette operations, and even allow 
Decimal/Hex conversions to boot. There are many 
ways to accomplish a change of memory size without 
destroying Basic. Most methods involve calculating 
low and high order address bytes and poking them 
into memory. This method is prone to calculating and 
keying errors. Dennis Kitsz sent me a marvelous 
utility "KEEP03" which allows you to reset memory 
size and much more, but is must itself be loaded into 
reserved memory first. MEMORY is loaded only when 
you need it, and cannot conflict with anything you 
have in memory, because it and its stack load and 
operate completely within the Basic input buffer, an 
area that must be kept free for Basic. This means of 
course, that when you return to Basic, the MEMORY 
program will be destroyed, but most of the operations 
it does are "one shot" affairs anyway. If you need it 
again, jt only takes seconds to load. 

To use MEMORY, BREAK your Basic program and 
type SYSTEM ENTER MEMORY ENTER. After loading 
is complete, MEMORY initializes itself and the 
current MEMORY SIZE is displayed in Hex and 
Decimal. It should be noted that the actual value 
stored in 40B1 H is two less than the value keyed in 
and displayed. For that reason the value displayed for 
a 16K machine with no memory reserved will be 
8001 H (32769), two bytes higher than the highest 
possible address. This is done so that the beginning 
of the reserved area is two bytes higher than the 
highest byte used by Basic. 

The command string is displayed on line 2. The one 
letter commands are activated without the ENTER 
key. 

B RETURN TO (B)ASIC 



James F Williams 
Rocky Mount, North Carolina 

Pressing this key will return you to Basic 
command mode (Ready prompt). If you use this exit, 
and do not reset Memory Size, Basic variables will 
remain intact. 
S (S)YSTEM PROMPT 

This will probably be the most frequently used exit. 
From the SYSTEM prompt, you may load the machine 
language program for which you reset MEMORY 
SIZE. 

R (R)UN BASIC PROGRAM 

If you need to execute your Basic program 
immediately, there is no reason to exit and type RUN 
ENTER. Just press R. This command (like RUN) will 
clear all Basic variables. 
M RESET (M)EMORY SIZE BOUNDARY 

After pressing "M", a right arrow will appear. This 
means that the program is expecting Hex or Decimal 
input. Hex input is designated by following the Hex 
numbers with an "H". Corrections may be made with 
the backspace key, and entry is terminated with the 
ENTER key. The maximum Hex range is FFFFH and 
the maximum Decir al range is 65529. After ENTER 
is pressed, you will raturn to the original prompt with 
the new MEMORY SIZE on the first line. This 
command will clear all Basic variables. 
C CONVERT 

This command allows you to perform any number 
of Hex-Dec or Dec-Hex conversions. Just type in one 
number and the conversion is displayed next to it. The 
original prompt may be re-entered by hitting ENTER 
alone. 

There are several interesting programming 
techniques used in MEMORY that may be used 
separately in other programs. 
IMMEDIATE EXECUTE (LINES 240-250, 310-320) 

By loading a JP (entry point) into location 41E2H- 
41E4H, no manual initialization will be necessary. 
After the tape is read, execution will begin 
immediately at the address overlayed by a separate 
ORG. If you plan to be able to return to Basic and use 
the SYSTEM cc-mmand, you must load a RET back 
into location 41|E2H. 
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MEMORY RESET (LINES 550-590) 

This routine could be used with any machine 
language program to protect itself in high memory. 
Simply load ADDRESS-2 of the beginning of the 
machine language program to be protected in HL, 
execute the given code, and return to Basic with a JP 
6CCH. 

EXECUTE BASIC PROGRAMS FROM MACHINE 
PROGRAMS (LINES 880-910) 

This routine was discovered by Robert Shiels, a 
North Carolina State Computer Science major. This 
would be useful if you were loading Basic and 
machine code as a block of memory and wanted to 
execute it from the machine language program. 
However, to make that work, you must set a few Basic 
pointers as well. 

CONVERT A DECIMAL STRING TO A VALUE IN DE 
(LINE 770) 



Point HL to the beginning of an unsigned decimal 
string ending in a byte, then CALL 1 E4FH. On exit 
DE will contain the value of the string in the range 0- 
65529. John Hind was the first to show me that one. 
CONVERT VALUE IN HL TO UNSIGNED DECIMAL 
STRING AND DISPLAY AT CURRENT CURSOR 
POSITION (LINE 1150) 

Load HL with value and CALL OFAFH. See "Binax 
Kibuff'by John Blair in the September 1 980 issue of 
80-Microcomputing for more information. 

In the same issue David Cornell wrote an 
excellent article and program "Free Space", that 
uses the input buffer to contain his program. He 
describes the limits of the SYSTEM stack and gives a 
great deal of other very useful information, as well as 
a super program. I believe many "one shot" type 
utilities could use this method very effectively, if they 
can be written to be contained in that limited 
space. @ 



00100 


; MEMORY 


SIZE 


RESET BY JAMES 


F. 


WILLIAMS 


00110 










00120 


; THIS PROGRAM EXECUTES IMMEDIATELY AFTER LOADING 


00130 


;WITH0UT INITIALIZATION, AND DISPLAYS THE CURRENT 


00140 


; MEMORY 


SIZE 


IN HEX AND DECIMAL. 


00150 


i 










00160 






COMMANDS 






00170 


i 










00180 


; b 


RETURN TO (B)ASIC 






00190 


; s 


JUMP 


TO (S)YSTEM COMMAND 


00200 


; R 


(R)UN BASIC PROGRAM 






00210 


; M 


RESET 


(M) EMORY SIZE BOUNDARY (HEX OR DEC) 


00220 


; c 


(C)ONVERT HEX-DEC, DEC- 


HEX. USE H AFTER HEX NO. 


00225 


! 


USE <ENTER> ALONE 


TO 


EXIT LOOP. 


00230 


i 








00240 




ORG 


41E2H 




;SET FOR AUTO EXECUTE 


00250 




JP 


ENTRY 






00260 




ORG 


41E6H 




/BOTTOM OF INPUT BUFFER 


00265 


/CONVERT ROUTINE 




00270 


CLOOP 


CALL 


INPUT 




; HEX-DEC INPUT 


00280 






A,H 






00290 




OR 


L 




;HL=0? 


00300 




JR 


NZ, CLOOP 




;N0, LOOP BACK 


00305 


; COMMAND LOOP 








00310 


ENTRY 


LD 


HL,41E2H 




/RESTORE SYSTEM CMD 


00320 




LD 


(HL),201 




00330 




CALL 


1C9H 




/CLEAR SCREEN 


00340 




LD 


HL, (40B1H) 




/MEM SIZE TO HL 


00350 




INC 


HL 




/ADD 2 


00360 




INC 


HL 






00370 




CALL 


DISPLY 




/DISPLAY HEX 
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00380 


lIllllSMlI 


DECDPY 


; DISPLAY DECIMAL 


00390 


LD 




;CMD PROMPT 


00400 


CALL 


28A7H 


1 DISPLAY IT ON SCREEN 
;WAIT *TIL KEY PRESSED 


00410 


iiiiiiiiiiiPii 


49H 


00420 


CP 






00430 


JP 


2 f 6CCH 


;YES r TO BASIC 


00440 


CP 


H 






JR 


Z # RUN 


jYES, TO RUN ROUTINE 


00460 


CP 








JP 


Z f 2B2H 


? YES? TO SYSTEM CMD 


00480 


CP 


C B 




0049© 


JR 


ZjCLOOP 


; YES ? TO CONVERT 


00500 


CP 






00510 


JR 


NZ, ENTRY 


;MO, TO CMD LOOP 


50515 yMEMOR f RESE! 


ROUTINE 




00520 


CALL 


illlllllliiHIISllillllllllltlllll 


; HEX-DEC INPUT 




DEC 


HL 


1 SUBTRACT 2 • 


00540 


DEC 


HL 






LQ 


(40B1H) ,HL 


;SET BOUNDARY 


00560 


LD 


DE e 0FFCEH 


1 CLEAR 50 


00570 


ADD 


HL f DE 




msm 


LD 


(4( ) BL 


;SET STRING AREA PTR 


00590 


CALL 




1 BASIC CLEAR FIXES PTRS 


00600 


JR 


ENTRY 




00605 j INPUT RQUTJ.M1 


^^^^^^^^^^^^^^^^^^^^^^ 




00610 INPUT ID 


A^94 




00620 




33E1 


; PRINT RIGHT ARROW 


00630 


LD 


■■ L , (4020H) 


?SAV£ CURRENT CURSOR POS 


00640 SCAb 


3 CALL 




1 STROBE UNTIL KEY PRESSED 


00650 


CP 


0DH 


;CR? 


00660 


JR 


Z,BVAL 


;YES f EVALUATE RESULT 


00670 


CALL 


33H 


|NO# PRINT CHARACTER 


00680 


JR 


liiiiBi^HilllllillliiiilliSii! 


1 LOOP 8 TIL CR 


00690 EVA! 


LD 




; CURSOR POS IN DE 


00700 


DEC 


DE 


| SACK UP TO LAST CHAR 


00710 


LD 


A, (DE) 


I POT IT IN A 


00720 


CP 


ft ri B 




00730 


JR 


Z P HEX 


?Y£S ? HEX ENTRY 


00740 


INC 


DE 


;NO f NEXT SCREEN LOC 


00750 


XOR 


lilllllHllllilllllllllllllllililiiiiilillllI 




00760 


LD 


(DE) ,A 


;PUT TERMINATOR VU SCREEN 


00770 


CALL 




1 VALUE OF DEC STR IN DE 


00780 


EX 


DE,HL 


;VAI. IN HL 


00790 


CALL 


DISPLY 


? DISPLAY HEX VALUE 


00800 


JR 






00810 DECOPY CALL 


DECML 




00820 CR 


LD 


A,13 




0083© 




33H 


; PRINT CR TO SCREEN 


00840 


RET 






00850 


ORG 


4288H 


;MAKE ROOM FOR STACK 


0085$ ;Rlfo 


J SUBROUTINE 




00860 RUM 


CALL 


1E7AH 


; BASIC CLEAR ROUTINE 


00870 


LD 


HL, (40A4H) 


; START OF BASIC PROGRAM 


00880 
^00890 


DEC 


HL 




PUSH 


BL 





1 "2 80-U.S. Journal May/Jun 1981 



Machine Language Application 



00900 




POP 


DE 




00910 




JP 


1D1EH 


;TO ROM 


00915 


; CONVERT HEX 


STRING TO VALUE IN 


HL 


00920 


HEX 


LD 


DE,0 


; CLEAR DE 


00930 




EX 


D£,HL 


;0 TO HL 


00940 




DEC 


DE 


;FOR LOOP 


00950 


NEXT 


INC 


DE 


;CHAR ON SCREEN 


00960 




LD 


A, (DE) 


; IN A 


00970 




CP 


°H B 


t H? 


00980 




JR 


Z ? DECDPY 


»YES e DISPLAY DEC 


00990 




CP 


B 0° 


; LESS THAN ASCII 0? 


01000 
01010 




JR 
ADD 


C,NEXT 
HL g HL 


;YES f GET NEXT CHAR 
;NO p SHIFT HL LEFT 4 


01020 




ADD 


HL^HL 




01030 
01040 




ADD 
ADD 


HL g HL 
HL,HL 




01050 




CP 


a A° 


1 LETTER? 


01060 




JR 


NC f LTR 


g YES 


01070 




ADD 


A,7 


;NO ? ADJUST 


01080 


LTR 


SUB 


55 


; ADJUST TO REAL VAL 


01090 




OR 


L 


; MERGE A AND L 


01100 




LD 


L* g Pi 


;BACK TO L 


01110 




JR 


NEXT 


?NEXT CHAR 


01115 


; CONVERT VALUE TO DECIMAL STRING 


01120 


DECML 


LD 


A,20H 




01130 




CALL 


33H 


; PRINT SPACE TO SCREEN 


01140 




PUSH 


HL 


;SAVE VALUE 


01150 






0FAFH 


; DECIMAL STR TO SCREEN 


01160 




POP 


HL 


; RESTORE VALUE 


01170 




RET 






01175 


; VALUE 


IN HL 


TO HEX STRING 




01180 


DISPLY 


LD 


C,4 


;FOR 4 DIGITS 


01190 
01200 




PUSH 
LD 


HL 

A,20H 


; SAVE VALUE 


01210 




CALL 


33H 


; PRINT SPACE 


01220 


DIGIT 


LD 


B r 4 


;BIT COUNT 


01230 




XOR 


A 


01240 


SHFT 


ADD 


HL ? HL 


; SHIFT HL LEFT 4 


01250 




RLA 




; SAVE CARRY IN A 


01260 
01270 




DJNZ 


SHFT 


? LOOP 4 TIMES 




ADD 


A, 48 


; ADJUST TO ASCII 0-9 


01280 




CP 


58 


10-9? 


01290 




JR 


C p PRINT 


|YES 


01300 




ADD 


A,7 


;NO ? ADJUST TO A-F 


01310 


PRINT 


C/^ I.* Lj 


33H 


; DISPLAY DIGIT 


01320 




DEC 


C 


;4 DISPLAYED? 


01330 




JR 


NZ, DIGIT 


;NO ? DO IT AGAIN 


01340 




LD 


A/H' 


} YES 


01350 




call 


33H 


; DISPLAY 8 H J 


01360 




POP 


HL 


; RESTORE VAL 


01370 




RET 






01380 


PROMPT 


DEFM 


8 BSRMC 8 


; COMMAND STRING TO SCREEN 


01390 
01400 




DEFB 
END 




ENTRY 
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Software Review 
Ball Turret Gunner 
instant Software Inc 
Peterborough, NH 03458 
$9.95 



4 



Ball Turret Gunner is a one player 
game in which you try to destroy 
enemy fighters in a race against the 
clock. 



The program, written in Basic, puts 
one in control of a Ball Turret in deep 
space trying to destroy incoming alien 
gnat-class fighters. The game is 
straightforward, giving one a few 
commands ranging from moving in 
two dimensions to firing the 
stratolaser. One's fight to save the 
good guys' territory is often 
challenging, depending upon which 
sector the turret is located in. Players 

have the choice of difficulty they want 
to play. The sector is determined from 
this information. 

When I played, the game continued 
to amaze me. 1 1 s graphic 
representation of each sector was 
enough to leave me befuddled as to 
how the author managed to map a full 
universe in memory because the 
turret is able to rotate a full 360 
degrees horizontally and 90 degrees 
vertically. Movement may be diagonal 
and can be stopped altogether by 
hitting the space bar. 

One outstanding feature of the 
graphics is that the movement is very 



smooth. Chalk another one up to good 
programming. The game is played in 
real time, this being an advantage 
because the display is constantly 
shown and not constantly redrawn. 

The display is unique in the way it 
shows the approaching fighters. At a 
great distance, they appear as just 
moving stars, but as they come closer 
they become little T.I.E. fighters that 
grow as they near. If the gnats (that is 
what they are called in this game) get 
too close to the turret, they crash into 
the unfortunate gunner. Apparently, 
gnats are kamikazes in space. 

The program documentation is very 
thorough. In fact, you can't help but 
understand how to play the game. The 
people who wrote the manual should 
be commended. 

Finally, the Ball Turret Gunner 
game is a very good 'shoot-em-up' 
program. While input is through 
INKEY$ routines, the idea is not new 
and it does not take a great deal of 
intellecutal prowess to play, the 
program does work without errors. 

Pat Perez 



.:..:„;, c'ME STRAIGHT TULK ABOUT DISK DRIVES ■ . '. , ,. i j j 

| | DON' I BE CONFUSED BY ALL THE BRAND NANES YOU SEE IN THE MARKET PLACE, THERE ARE VERY FEW MANUFACTURERS OF THE BASIC 

DRIVE CHASSIS, ALL THE OTHER NANES ARE THOSE OF THE ASSEMBLERS OR THE RETAILERS, 
i | AS MANUFACTURED, THE DRIVE MILL NOT RUN ON A TRS-80*, IT MUST BE MODIFIED BY THE ASSEMBLER. 

U THE QUALITY OF THE DRIVE DELIVERED TO YOU IS DEPENDENT ON BOTH THE MANUFACTURER AND THE ASSEMBLER, THE BEST CAN TURN 

TO JUNK IF THE ASSEMBLY IS IMPROPERLY DONE. 
I THE POWER SUPPLY AND CASE ARE VERY IMPORTANT COMPONENTS OF THE COMPLETE DRIVE, THE CASE MUST ALLOW PROPER C00LIN6 

AIR FLOW, AND THE POWER SUPPLY MUST MAINTAIN TWO CONSTANT V0LTA6ES. 
| : YOU MUST DEPEND ON THE COMPANY SELLIN6 YOU THE DRIVE TO SERVICE IT AT REASONABLE COST WHEN IT FAILS YOU, THE 

MANUFACTURER IS NOT EQUIPPED TO DO THIS! 

I THE BEST MEASURE OF QUALITY IN A DRIVE IS IT'S SPECIFICATIONS, WILL IT HANDLE DOUBLE DENSITY, WHAT IS THE TRACK TO 

TRACK ACCESS TIME, THE ANSWERS TO THESE TWO QUESTIONS INDICATE THE PRECISION OF IT'S COMPONENTS. 
I HftT KIND OF DRIVE SHOULD YOU BUY ? LEVEL IV HAS CHOSEN TO DISTRIBUTE EXCLUSIVELY, THE MPI LINE, ALL MODELS OF MPI 

Mi DOUBLE DENSITY RATED AND REQUIRE ONLY A FIVE MILLI-SECOND TRACK TO TRACK ACCESS TIME. 
J UHAT DO ALL THE MODEL NUMBERS MEAN? 

B-51« 40 TRACKS SIN6LE HEAD SINGLE SIDE B-52= 40/40 TRACKS DOUBLE HEAD DOUBLE SIDE 

B-91" 80 TRACKS SIMILE HEAD SIN6LE SIDE B-92= 80/80 TRACKS DOUBLE HEAD DOUBLE SIDE 

(DOUBLE HEADS) -READ BOTH SIDES OF DISK (DUALS) -TWO DRIVES IN ONE CASE (RAW) -NO POWER SUPPLY OR CASE 

Fj HERE SHOULD YOU BUY YOUR DRIVE, LEVEL IV IS ONE OF THE OLDEST AND LAR6EST DISTRIBUTORS OF TRS-801 EQUIPMENT, LOOK 
"* AT THE ADS IN YOUR OLD MAGAZINES, MANY OF THE ADVERTISERS ARE NO LONGER IN BUSINESS, LEVEL IV HAS BEEN A LEADER 

SINCE THE BE6INNIN6, WE STAND BEHIND OUR PRODUCTS, AND WE'LL BE HERE WHEN YOU NEED HELP. 
| , (JHERE DO THE NATIONALLY KNOWN AUTHORS BUY THEIR DRIVES ? LEVEL IV CAN SHOW COPIES OF SALES RECEIPTS FOR DRIVES TO 

HOST OF THEM, LANCE HICKLUS, SCOTT ADAMS, VERNON HESTER, BOB (CAPTAIN 80) LIDDIL, DICK BALCOH, KIM WATT, ETC. 

TO THESE MEN COMPUTING IS NOT A HOBBY, IT IS THEIR PROFESSION. 
□ CALL FOR OUR LOW PRICES ON NEW AND USED DRIVES, REHEHBER, WE ALSO TAKE TRADES, AMD PAY THE SHIPPING! 

LEVEL IV PRODUCTS INCo 32238 SCHOOLCRAFT p LIVOWIA P Ml 40 150 
PHOWEBu m 32S-620© OTHERS 800-521-3305 ( TOLL FREE ) 

8 a traduark of the RADIO SHACK DIV. of TANDY CORP. circle 55 
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OWN A TUB 80*?...... 

SELEGTRA-PRIlfT Puts You Ju 
Cable Length Away From A 
Word Processing System! 



...just a simple hook-up with the supplied cables and 
your SELECTS A-PROWT is ready to run. 

For Word Processing on a TRS 80, for example, just 
command "LPRINT" and selicto^powt 
automatically outputs clear, clean, high-fidelity, hard 
copy....and of course you can use it to print-out any 
other information you might need. 

SPECIAL MOTE: 
SELEOTRA-mint is a Selectric typewriter and 



although it has been modified for computer print-out, it 
may still be used as a standard office typewriter. 

SELECTOR™? is VERSATILE! 
seleotom=f>™t is compatible with most micro 
and mini-computers including □ Apple □ Heath H8 □ 
IMSAI □ Cromemco □ Alpha Micro-systems □ Space 
Byte □ North Star Horizon □ SWTP □ Vector Graphic □ 
Sol □ Polymorphic □ Digital Group □ Ohio Scientific □ 
Altair □ Sorcerer □Titan □ Rex □ KIM □ EXORcisor 



Already own a Selectric I™, II™, or III™? 
We can convert it to Selectra-Print 

oka/en uu^ccueie^ uunifect 

MICRO COMPUTER DEVICES, INC. 

3156 East La Palma Avenue. Suite H, Anaheim, California 92806 - (714) 630-8206 

*TRS 80 is a Trademark of Radio Shack, a division of the Tandy Corporation 
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WordMagic II™ 



DOLLAR FOE DOLLAR, FEATURE FOR FEATURE 
THE MOST COST-EFFECTIVE, PRACTICAL, EASY TO USE 
WORD PROCESSOR FOR THE TRS-80™ MODEL II!** 
Field Tested & Proven - WordMagic II™ includes: 
Total TRSDOS™ compatibility - no need to pay extra for a separate operating system! 
Automatic WRAP-AROUND • Automatic MARGINA TION • TABBING • PRINT FORMATTING • 
Automatic PAGINATION • VERTICAL MARGINS • PAGE NUMBERING • LINE NUMBERING • 
INDENTATION • SPLITTING LINES • REJOINING LINES • UNDERLINING (Most letter quality 
printers) • PAGE BREAKS • MEMORY BUFFER "SCRATCH-PAD" • VARIABLE LENGTH FORMS • 
Full Edit Commands - GLOBAL SUBSTITUTION • INSERTION • FIND • OVERWRITE • KILL LINES 
• HACK • DELETE CHARACTER(S) • FULL CURSOR CONTROL - UP, DOWN, LEFT, RIGHT, TAB, 
END OF LINE, BEGINNING OF LINE • Automatic Generation of a Table of Contents • Smooth Right • 
Centering • Left Justify • Merge Data Blocks • Create "Personalized" Form Letters • Merge Repetitive 
Paragraphs • Mail List • Label Generation included at no extra charge! • Documents up to Diskette 
Size • Easy to use Command Structure • Complete User's Manual 

**Requires 64K (WordMagic II may be used with one disk drive, but its installation requires two drives). 
COMPLETE PACKAGE (DISKETTE & MANUAL) ' $195.00 

(California residents please add 6% tax) 

(Overseas purchasers please add $15.00) Data Strategies, Inc. 

Formerly CalData Systems 

P.O. Box 28726 
San Diego, CA 92128 
(714) 489-9218 

TRS-80™ & TRSDOS™ are Trademarks of Radio Shack, a division of the Tandy Corporation. 4k 
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Epson MX-80 5555 

Epson TX-80 $689 

OKidata $549 

Base 2 850 $749 

Centronics 737 $895 

Malibu $2095 

Anacom $1 1 95 

Paper Tiger 455 $775 

($25.00 S/H On All Printers) 



CCI-100 (List $42500) 
40 Track- 102K Byte On SS 
(Soft Sector) TRS-80 M 1 

$339 00 

CCI-280 (List $575) 80 Track 
102K Byte on SS (Soft 
Sector) TRS-80 M 1 

$449 00 

TRS-80 To 2-Drive Cable 

$28 95 

DISK DRIVES INCLUDE: POWER SUPPLY AND SILVER 
CASE. CAN BE MIXED WITH EACH OTHER AND RADIO 
SHACK DRIVES ON SAME CABLE WARRANTY: 90 DAYS+ 1 
YEAR ON POWER SUPPLY EXTERNAL CARD EDGE 
INCLUDED # 



16K Memory Add-On for 
TRS-80, Apple, & Exidy 
4 Pages Inst , Rams and 
Jumpers No special tools 
TRS-80 Keyboard . , #0122 

TRS-80 Exp #0123 

Apple II #0124 

Exidy #0125 

(ON TRS-80'S TELL DATE 
PURCHASED! Kit . . $45 00 

MODEMS (NOVATION) 
D-CAT (List $199) ....$178 
CAT-MODEM (List $199) 

$158 

Universal Data $189 

(SHIPPING ON MODEMS 
INCL) 

E-Z-EYES 

Solid Green Acrylite; Fits 
TRS-80 M 1, M 2, M 3 and 
Leedex Screens Eases eye 
strain and Fatigue (List 
$11 95) On SALE . $7 49 

Circle 58 

Send Check or Money Order To 
GOSUB 
P.O Box 275-D 
Wichita, KS 67201 



MEDIA (DISK-BOX OF 10) 
Verbatim 5V«" SS .. $28 00 
BASF 5Vi" SS DD . . $26 00 

CASSETTES AGFA PE-61 1 
Premium Tape 5-Screw 
Housing and Labels 
$1 95 Ea. or Box of 10$8 95 
Box of 50 (list $45) . $36 95 

Soft Cassette Boxes $.25 Ea 
Disk Storage Pages 10 

for $5 95 

Disk Library Cases 5" $3 25 
Verbatim 5" Plastic Box 
$115 

Software for TRS-80 Model 
1 & 3/PMC-80 All games 
come on PE-61 1 Premium 
Tape 

Mercenary Force SI 6 95 

Highway Skill $6 95 

Text Editor/Mailing Labels 

$14 95 

GAMES PACKS 

HI Quarter Horse Yahtzee I 

$14 95 

#2 Warrior Space Merchant 
$14 95 



Kansas res add 3% sales tax All prices subject to change with- 
out notice Free catalog available upon request (TRS-80" is a 
recognized trademark of TANDY CORP ) 
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DISK I/O 

Your disk system and you can really step out with 
REMSOFT's Educational Module, REMDISK-1 , a 
"short course" revealing the details of DISK I/O 
PROGRAMMING using assembly language 

Using the same format as our extremely popular 
introduction to assembly language programming, 
this "ASSEMBLY LANGUAGE DISK I/O PROGRAM- 
MING" course includes: 

• Two 45-minute lessons on audio cassette 

• A driver program to make your TRS-80® video 
monitor serve as a blackboard for the instructor 

® A display program for each lesson to provide 
illustration and reinforcement for .what you are 
hearing 

• A booklet of comprehensive, fully-commented 
'program listings illustrating sequential file I/O, 

random-access file I/O, and track and sector I/O 

• A diskette with machine-readable source codes 
for all programs discussed, in both Radio Shack 
EDTASM and Macro formats 

• Routines to convert from one assembler format 
to the other 

This course was developed and recorded by 
Joseph E. Willis, for the student with experience 
in assembly language programming, it is an inter- 
mediate-to advanced-level course. Minimum hard- 
ware required is a Model I Level II, 16 K RAM one 
disk drive system 



IEMDISK-1 only $29.95 

Dealer inquiries invited 

REMsoft, INC. 

ISpF 571 E. 185 St. 

• Euclid, Ohio 44119 
(216) 531-1338 

Circle 68 

Includes $1 50 for shipping and handling 
Ohio residents add 5'/?% sales tax 

TRS-80» is a trademark of the Tandy Corp 
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Cyborg Wars 
Stratagem Cybernetics 
286 Corbin Place 
Brooklyn, NY 11235 
$15 incl postage & handling 
On a small asteroid somewhere 
in our galaxy, four nations of Androids 
have been engaged for several eons in 
constant warfare over the asteroid's 
limited resources... So begins the 
game of Cyborg Wars, Stratagem 
Cybernetics' first entry into the 
computer software market. Up to four 
players rule over a nation in an effort 
to bring peace (and one government) 
to the small asteroid. 

The game is similar to the old 
Hammurabi and King games of a few 
years ago, but is a lot more stylized, 
and complex. In Cyborg Wars, a ruler 
has a country full of Android subjects, 
all falling into one of four categories. 
They are Breeders, Farmers, Workers 
and Soldiers. Breeders are the 
Androids that make more Androids. 
Farmers can be made into anything 
material on the asteroid's surface. 
Workers make guns and tanks and 
things for the fourth classification 
soldiers: they fight the battles. 

On each turn of play, each ruler is 
given one new Android for every 20 
Breeders he has. Androids can be 
converted in a limited manner. 
Breeders can be changed to anything, 
Framers can be made into anything 
except Breeders, Workers can be 
converted to Soldiers, but Soldiers 
must stay Soldiers. 

Soldiers may be sent out as spies to 
neighboring countries to try to recover 
information about the enemy. Beware 
though, that spies can be captured and 
killed, and there goes another 
precious soldier that is hard to replace. 

Once the conversions have been 
made and all the spies have returned 
with their information, one final 
decision must be made - to attack or 
not to attack the neighboring country. 
That may sound unfriendly, but the 
game is not won until a player has 
conquered the asteroid, or thirty-five 
turns go by without any outbreaks of 
war. 

When attacking, the ruler has 
absolutely no control over strategy. 
That is all controlled by Android 
generals, so the best attack strategy is 
to find a country that is grossly 
outmatched. 

The game always has four players, 
even if three of them are the 
computer. The game can be played for 



weeks in the solo mode, and it won't 
be much different when playing with 
three other humans. 

This program is a good choice for a 
multi-player strategy game, offering 
an extended playing time over most 
other multi-player games, sometimes 
lasting up to two or more hours. When 
playing with more than one person, 
make sure there is something aside 
from playing the game to do, because 
all the information should be kept 
secret. The program does ask for a 
password at the beginning of each 
player's turn. This comes in very 
handy when playing with people who 
want to win at all costs. 

If you are inthe marketfora multiple 
player game, this one is a good choice. 
It comes with an instruction booklet 
and a pad of special graph paper 
designed to help keep a record of 
everything. Have fun.. 

Pat Perez 
Software Review 
Air Traffic Controller 
Creative Computing Software 
PO Box 789-M 
Morristown, NJ 07960 
CS-3006 
$9.95? 

Air Traffic Controller is unusual in 
that a microcomputer software 
package seldom gets an entire 
full-page advertisement to itself. 

This one deserves it. I had been 
apprehensive about buying ATC 
because I'm an instrument-rated pilot, 
and simulations often seem contrived 
to those familiar with the subject. This 
is not the case with ATC. 

The simulation stays close to reality. 
There are some compromises, of 
course. Most of these tend to simplify 
the game. For example, every aircraft 
in your area is under your control; all 
aircraft have altitude reporting 
equipment; you only have to deal with 
two speeds of planes (240 knot jets 
and 1 20 knot propellor planes) and no 
helicopters; and both speeds of 
aircraft have the same turning radius. 
All of the aircraft follow your 
directions, and never get mixed up; 
there are no emergencies; and the 
planes climb and descend much faster 
than real planes. 

The game is not easy to win, even 
with those simplifications. The skill 
level is set by how many minutes you 
give yourself to get all 26 planes to 
their destinations. The documentation 
for the program claims that no one has 
yet successfully completed the 
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UP To 4- PLAYERS CoMPfeTE WITH EACH OTHER 
AN»/oR COMPUTE. R TO ACHIEVE WORU> PEACE, 
SftLANCE OF POWER FLUCTUATES AS PLAYERS 
DEVELOP RESOURCES, USE £SP/OKAG£, EXPLOIT 
ALLIES, UTILISE. MILITARY POTENTIAL. 

TAPE CASSETTE FOR TBS "80 I6K LEVEL It M»Ki t 

$15 

STRATAGEM CYBERNETICS 
286 Corbin PL, B'klyn, NY. 11235 
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OMNITERM - The Ultimate TRS-80 T " Terminal Package is now available after nearly 2 
years in the making. Created as a result of dissatisfaction with existing terminal 
programs, IQiPITERM is the Most Powerful and Flexible-microcomputer intelligent 
terminal -program at any price - Bar None. Now the TRS-BIPcan communicate with 
and transfer files to almost any computer system Without writing special software 
OMNITERM solves the problem of computer systems that send 32, 40. or 80 column 
lines to your 64 column TRS-80'" by Reformatting your screen for easy reading. 
OMNITERM can compensate for incompatibilities with 7 different translation tables, 
one to and from each device. This capability even allows OMNITERM to use' codes 
such as EBCDIC and translate them tathe=TBS-80?s ASCII. With OMNITERM you can 
evemReview text that has Scrolled Off the Screenl At any time you can examine and 
change any of OMNITERWs settings, because OMNITERM gives you a Full Status 
Display of all functions. It works with ail ROW'S and DOS's since it uses only offieiaf ly 
documented calls 

» Spooled Printer • True Break Key • Repeat Key 

•..Single Key Auto Signon ° X/Y Cursor Control ° Lower Case Support. 
-.• Prompted File Output : © Xon/Xoff File Contr ol Can Echo characters 
; ® Sends Special Characters not on the TRS-80 keyboard : : 
; o Control-G causes "Beep" sound and Graphic Bell to flash on the screen. 

• Accepts all standard VIOEOTEX'" control codes 

• Can configure i the UART for baud rates from 50-19,200 baud. : 

o Can send text Slowly for computers that work at "typist" speed. ! 

® Keeps continuous count of Parity; Framing, and Overrun errors, 

o Saves a special tile with, proper settings for each different use . 

;® Includes: 80 page manual, Text Editor. Hex Conversion Utilities. ; : 
Everyone who sees OMNITERM is Amazed by its Power and Ease of Usel Requires TRS-80 
with 32K memory, 1 disk $95 (plus shiping if C. D ) Call for shipment within 24 hours 
Manual alone $15/ refunded With purchase. Order by Visa, MIC or CO D. Personal 
checks delay 2-3 weeks Mass residents add 5% sales tax Dealer Inquiries Invited 
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If you ever do Assembly language program- 
ming, or you just want to know more about 
your TRS-80 ROM, "THE BOOK"s are for you. 

•TRS-80 is a trademark of Tandy Corp. 

Each volume is priced at: $14.95 + $1.50 
S&H = $16.45 ($17.05 in VA) Overseas add 
$2.50 for air shipment 

Insiders Software Consultants, 
i P.O. Box 2441, Dept. U 2 
Springfield, VA 22152 

□ Please send me Volume I of THE BOOK 

□ Please send me Volume II of THE BOOK 



Volume I: The most comprehensive 
book yet on the math routines in 
Level II ROM, Models I & III. In- 
cludes a fully commented listing 
from 0708H to 1607H and an in- 
credibly complete map of the ROM 
and reserved areas of RAM. 



I ADDRESS 

! CITY, STATE 




__ZIPCODE_. 



Check payable to Insiders Software Consultants, Inc 
MASTER CHARGE MC Bank Code 
VISA Exp. Date Card Number 



I Signature 



Dealer inquiries Invited 



Volume II: Everything you want to 

{ know about the video, keyboard, 

I cassette, and printer driver 

J routines. Learn how to write your 

i own! Remarkably detailed listings 

J illustrate well-commented source 

i code. Complement Volume I, now. 
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simulation at the highest skill level (16 
minutes). I believe it. In fact, it is not 
hard to blow the game at the lowest 
skill level (99 minutes). I find 60 
minutes to be quite challenging, even 
though the documentation recom- 
mends 65 minutes as being easy 
enough for novice players. 

Your simulated RADAR screen 
covers an area 1 5 by 25 miles. Aircraft 
in your area show up as blips, 
indicated by a letter which is the 
plane's call sign. Beside the letter blip 
for each plane is a single digit which 
tells you the plane's altitude in 
thousands of feet. Your area includes 
two airports, two radio-navigation 
beacons (nav-aids, for short), and five 
airways. Planes may be arriving from 
either direction on any of the airways, 
or may be taking off from one of the 
airports. The planes may be leaving on 
an airway or may be landing at one of 
the airports. 

Your basic set of commands lets you 
instruct a plane what altitude you 



want it at, and lets you turn a plane 
either left or right by 45, 90, 135 or 
180 degrees. Additional commands 
let you instruct a plane to do 
something special when itencounters 
a nav-aid -- turn westbound toward 
one of the airports, turn northwest- 
bound toward the other airport, or 
enter a holding pattern. There is also a 
command to cancel previous turning 
and holding commands, and one to 
clear a plane to land. 

ATC arrived eight days after I 
ordered it by phone. The production of 
the cassette is top quality. ATC is 
recorded in SYSTEM format on a 
quality cassette with a professional 
label. It comes in a real cassette box, 
which is further sealed in a plastic 
wrap. I had no trouble loading the 
program on my 1 6K Level II TRS-80, 
but then, I have never had the 
problems with cassettes that other 
TRS-80 owners are always 
complaining about. The documen- 
tation is packaged inside the cassette 
box, all neatly folded up. 



The instructions seem formidable at 
first reading. There are only a few 
commands - that isn't the problem. It 
is the amount of detail that promises 
to overload your brain and turn you 
into a cabbage: approach headings, 
overflight routings, fuel limitations, 
separation requirements, aircraft 
performance parameters (speed, turn 
radius, climb and descent rates), and 
the symbols used on the display. 

While you're trying to absorb all of 
this detail, you will probably miss a 
few vital points. The ones that I missed 
that cost me the first few games were 
that 1)all inbound planes will go intoa 
holding pattern when they reach a 
nav-aid, unless you have specifically 
instructed them not to; 2) airplanes 
cannot be descending the last mile to 
the airport; and 3)the instruction entry 
area on the screen will clear itself 
every few seconds, so that just 
because you hit ENTER and the 
command went away, this does not 
mean that the aircraft received your 
instruction - you have to look for the 

(Continued on page 120) 



■ LP 



\ \ \\ \ ; ( - \( n \ \\ \ v \^ ' \ \ \ . 

ypfi i III {jb^T^m wLiMtm 

H 

■ Wm 




iaynard, MA. 01754 



Mm ■ ■ ■ 

.... i ■■- . [Mi, -. ■•, ; ■ ' : • •' [>iv,\ 




I 



MATH-PAK-1: MATH-PAK-2: MATH PAK-3 

Interactive math drill programs that let the user enter the answer' digit by digit, 
just like paper and pencil. With user selected difficulty levels, carryovers, sim- 
plification, reducing, scoring, pointing off, games, and more. The MATH-PAK'S 
are used throughout the U.S. and Canada and are recommended by the 80US 
Journal, S-80 Bulletin, and the Computing Teacher. Order MATH-PAK-1 for 
integers, MATH-PAK-2 for fractions, and MATH-PAK-3 for decimals. (L2-16K) 

$14.95 ea. 

H-O-R-K-S 

Low cost, single entry accounting system for the home or office. With 66 user 
assigned account codes, auto audit trail, search with totals, 32 or 48K, 1 to 4 
drives, credit and debit reports with 3 options, and up to 9200 entries. 

$24.95/cassette $29.95/disc 
INVENTORY + 

Why settle for just an inventory listing? get aging reports with 2 options, reorder 
reports, total listings with purchase dates, amounts, and vendors, total costs 
items sold, profit/loss, and more. Use as a stand alone system with daily updates' 
delete, change, and file packing routines. (32K - 1 disc minimum). 

$24.95/cassette $29.95 disc 
CASH REGISTER 80 

Use your TRS-80 as a point of sale terminal with automatic inventory lookup, 
pricing, updating, discounting, and more. Print sales slips with user adjusted 
formats, end of day reports with all cash, charge, and check sales by salesperson. 
CR80 requires INVENTORY + ,48K, and 1 disc minimum (2 drives recommended). 

$24.95/cassette $29.95 disc 

PYRAMIND 

A challenging game of logic and deductive reasoning. Can you solve the computer 
generated code? The computer will give you clues on each entry but it will take 
all your skill to break the code. With 3 difficulty levels, sound, high speed graph- 
ics, and save a game on disc or cassette. (L2-16K) $1 1 .95 cassette 
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Mass. residents add 5% tax. VISA, M.C. and phone orders accepted. Overseas 
orders add $2.00 for air shipment. Dealer inquiries invited. TRS-80 is a registered 
trademark of the Tandy Corp. 
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WHEN OUR PROGRAMS TALK PEOPLE LISTEN 
Radio Shack has the machine to make your computer talk. We 
have the software! 

Until recently there has been little support for the TRS-80® Voice 
Synthesizer. At D & M Software we feel that within two years 
virtually all computers will talk and for this reason we have 
instigated a crash program to develop as many quality programs as 
possible to fulfill the projected explosive demand by educators and 
businesses. 

Sound effects are nice but a talking computer is sensational! So, if 
you own a synthesizer or are considering purchasing one then 
consider our support. We offer a whole newdimension in interactive 
programming for education, business, or fun. 

SPELLING BEE (A 3 PART PROGRAM) 

The computer administers a lesson consisting of ten words. When 
the student has learned them he is given an oral quiz in true spelling 
bee fashion. When the lesson has been completed student may 
advance to next lesson. The program is structured so that an un- 
limited number of lessons can be gived with progresively greater 
degrees of difficulty. Excellent for any grade or age level. Includes ten 
sample lessons of ten words each. The second part of the program 
allows one to create his own spelling lessons on cassette for much 
needed flexibility. A third part enables one to practice creating new 
words using the phonetic spellings needed by the synthesizer Error 
trapped and bug free. 

MOD-1 16K L-ll $19.95 

MULTIPLY 

An interactive, vocal, adventure in arithmetic The program offers 
a list of four programs which include multiplication, division, add- 
ition and subtraction Lessons are printed on the screen and oral 
tests are administered Positive reinforcement is given the student 
as he progresses. Scores are kept and grades given orally as the 
student and computer work together toward a better understanding 
in mathematics 

L-ll 16K $19.95 

CROSS REFERENCE DICTIONARY-! 2,000 LISTINGS 
The largest known cross reference manual for use with the 
TRS-80"" Voice Synthesizer No need to spend more long hours 
learning another computer language. Want your computer to say a 
word? Look up the English spelling. Right next to it you'll find the 
phonetic spelling that your synthesizer needs to say it correctly. 
Included is a large list of commonly used phonetically spelled 
phrases and sentences ready to type into your program. Invaluable 
as a time saving device. 

D & M SOFTWARE $14.95 
1510 SOUTH 97TH 
TACOMA, WASHINGTON 98444 
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Now you can develop Z-80 based, stand-alone devices such as game:; robots, 
instruments and peripheral controllers, by using your TRS-80 as a development system 
The DEVELOPMATE plugs into the expansion connector of your TRS-80 and adds 
PROM PROGRAMMING and iN-CIRCU IT-EMULATION capabilities ic your 
system (with or without expansion interface) 

Complete instructions and sample schematics are included to help you design your 
own simple stand-alone microcomputer systems THESE SYSTEMS CAN BE AS 
SIMPLE AS FOUR ICs^ .leTTL circuit for clock and reset, a Z-80, an EPROM, and 
one peripheral interface chip 

When the In-Orcuit-Emulation cable is plugged 
into the Z-80 socket of your stand-alone system 
the system becomes a part of your TRS-80' You 
can use the full power of your editor/assembler s 
debug and trace programs to check out bolh the 
hardware and the software Simple test loops 
can be used to check out the hardware, then the 
system program can be run to debug irm logic of 
your stand-alone device 

Since the program is kepi in TRS-8C RAM 
changes can be made quickly and easily When 
your stand-alone device works as desirec; you 
use the Developmate s PROM PROGRAMMER 
to copy the program into a PROM With this 
PROM, and a Z-80 in place of the emulation 
cable your stand-alone device will work by itself 



The DEVELOPMATE is extremely compact Both the PROM programmer and the 
In-Circuit-Emulator are in one small plastic box only 3 2-5 4 A line-plug mounted 
power supply is included The PROM programmer has a personality module which 
defines the voltages and connections of the PROM so that future devices can be 
accommodated However the system comes with a universal personality module 
which handles 2758.2508(8K) 2716 2516(16K) 2532(32K) as well as the new elec- 
trically alterable 2816 and 480161 16K EEPROMs) 

The COMPLETE DEVELOPMATE 81 with software power supply emulation 
cable TRS-80 cable and universal personality module isONLYS329! 
The PROM PROGRAMMER is available separately for ONLY S239 



ORION INSTRUMENTS 

172 Otis Avenue Dept B Woodside CA 94062 

(415)851-1172 
Master Charge and Visa phone orders accepted 
California residents please add 6°o sales tax 
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• Interrupt driven executive patches to parent operating system jwii j 
NEWDOS 2.1 or TRSDOS 2.3. 

® Allows two active users to share a single TRS-80. • 

O Execute BASIC or MACHINE LANGUAGE (above 7700 Hex). 

$ Joint access of disk files. ® 

• Second user ties to HOST via modem, terminal, or 2nd TRS-80. • 
O Options for Expansion Interface, RS-232, TRS232, or HUH • 

interface. • 

@ SIMPLEX MODE for non serial-port users. Requires only a • 

printer to act as second "screen". Jobs share the keyboard • 

under user control. • 

© CONFIGURE UTILITY partitions memory usage and selects I/O. • 



Up to 20 user defined fields. 

Files extend across multiple diskettes. 

Supports up to four drives. 

Automatic single drive disk mount requests. 

Four data types and computational fields. 

Flexible REPORT GENERATOR. 

Fast assembly language sorts. 

MULTI-FIELD sorts and searches. 

Keyed access on any sorted field. 

Indexed relations between files. 



TRS-80 tm Radio Shack/Tandy Corp. TO ORDER 

NEWDOS tm Apparat, Inc. 

TRS232 tm Small System Software I 
HUH tm California Computer Systems. 



203 ARDEN STREET 

GLEN, DALE, CA 91203 
(213) 64:3-0363 
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ROGER response. 

A couple of the commands interact 
in a way that I, a pilot, did not 
anticipate. In particular, if you instruct 
a plane to turn 90 degrees and then 
immediately clear the same plane for 
the approach to the airport, the plane 
stops its turn. This is a shock if the 
reason that you were turning the 
plane was to line it up with the airport. 
This isn't consistent with real life, in 
that if you instruct a real pilot of a 
plane to make a similar turn and clear 
him to land (which is different than 
cleared for the approach), he will 
continue the turn as originally 
instructed, and then land. 

The game is unforgiving; one 
mistake and you are through. If you let 
planes get too close, or make one use 
too much fuel, or if a plane leaving 
your area misses its departure fix or 
leaves at the wrong altitude, the game 
ends immediately. There is one 
mistake that you can get away with. If 
you clear a plane to land at the wrong 
airport, it will fly to the airport and then 
reject the landing. Then you can send 
him to the correct airport. 

The game clock is quite accurate on 
my TRS-80. A useful feature is that 
you can speed up the clock by banging 
away on the space bar. This lets you 
get past the occasional periods when 
you have no planes to handle. 

If there is a weak point, it is in the 
documentation. Not in substance, but 
in professionalism. The documen- 
tation contains sentences like: The 
command AO causes the aircraft to 
descend to altitude, but is also 
causes the aircraft to ignore all further 
instructions. What is needed here is a 
little bit of proofreading. That 
shouldn't be hard for the distributors 
to do, since they publish a national 
magazine. 

Errors in the advertising for ATC 
fiiso seem to stem from poor 
proofreading, rather than an attempt 
to mislead. The full-page ad calls the 
clock "inimitable", which it is not. I 
suspect that they meant "inimical", or 
perhaps "indomitable". That same ad 
gives the price as $9.95, when the 
other ads and the catalog list it at 
$7.95 except for the Apple II version. 
And another ad incorrectly says that 
you must handle 27 planes, rather 
than 26. 

There is also an annoyance in that 
when you're done playing ATC you 
have to turn your TRS-80 off and back 



on to do anything else. Pressing 
RESET seems to work at first, but 
Basic will not run correctly. 

Air Traffic Controller is available on 
TRS-80 Level II 16K cassette. 

Douglas L Pardee 

Review 
Revised Level II Manual 
Radio Shack, $5.95 

Radio Shack's Second Edition of the 
Level II Reference Manual is already in 
the hands of most purchasers of the 
TRS-80, but those who bought their 
machines before about May, 1980, 
have the old manual, recognizable by 
its staple binding. The new manual 
has a lay-open spiral binding, but the 
changes are more than binding deep. 

In spite of being only a revision, the 
manual has been worked over 
thoroughly and thoughtfully, with 
many small changes to clarify 
explanations and improve the layout 
for easier reading and reference. The 
extent of this work is indicated by 
there being 28 more pages in the main 
body of this edition than in the first. 

It is in the Appendices, however, 
where the most noticeable changes 
and additions have been made. 
Appendix A, the short summary of 
Level II, now has page references with 
every item to direct the user back into 
the body of the manual for more detail. 
Of similar usefulness is an extensive 
index, which it lacked previously. A 
highly legible table of every decimal 
number to 255 with its binary, octal 
and hex equivalent is provided. Much 
new information about control and 
character codes is offered, including a 
nice chart of the graphics characters. 

For the modest price of $5.95 this 
manual is worth replacing that dog- 
eared old version - and if this provides 
a pretext for rereading it carefully, 
some surprising jewels of new 
knowledge might turn up. 

Edward M Roberts 



Software Review 
Keyplus Integrated Utility Package 
SJW Inc 
$1 4.95 cassette 
$19 95 diskette 

Some time ago I saw a new product 
announcement for the Keyplus 
Integrated Utility Package. The 



announcement stated that Keyplus 
provided auto repeat, keyboard 
debounce, Basic shorthand, direct 
graphic entry, lowercase video, 
restoration of lost Basic programs, 
lowercase without shift, single key 
stroke user definable strings, and 
more. All this for only $14.95! 

Frankly, I was sceptical. It seemed to 
me that many of these features were 
mutually exclusive. And let's face it, 
$14.95 for all that? No way! 

Out of curiosity I called the 
distributor, SJW Inc., and discovered 
that Keyplus uses SHIFT-CLEAR to 
enter command mode. Once in 
command mode specific utilities may 
be enabled or disabled by typing a key. 

They also told me that the program 
loads in just 20 seconds and that there 
is a disk version with additional 
features. I sent them a check for 
$ 1 9.95 and less than two weeks later 
received the disk version by first class 
mail. 

Disk Keyplus not only contained all 
the features of the non-disk version, 
but also contained extremely powerful 
disk based utilities. For example, Disk 
Keyplus contains an auto input 
routine that allows a user defined 
string to be generated as if it were 
being typed in from the keyboard. This 
string may be automatically input at 
power up or by hitting just two keys. 
The possibilities are endless. On one 
of my TRSDOS disks I use this routine 
to load Basic, run a number crunching 
program, load from disk the present 
status of the calculations, and finally 
store the results backto disk. All this is 
done from power up without requiring 
further action on my part. 

The direct graphic entry routine 
allows graphics to be typed directly 
from the keyboard. Basic programs 
containing super fast graphics can be 
written using this utility. 

Basic shorthand allows Basic 
keywords such as GOSUB, NEXT, 
RETURN, etc., to be typed in one 
keystroke. This saves considerable 
time. 

The restoration of lost Basic 
programs routine does just that. Don't 
ask how, but it works. 

In fact, everything works! This is an 
incredible program; one I can strongly 
recommend. Keyplus and Disk 
Keyplus are available from SJW Inc, 
PO Box 438, Huntingdon Valley, PA 
19006. 

James Joachim 
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Radio Shack 11 provides a means to transfer 
programs. Now Unique Software provides a 
means to CONVERT them. PRINT®, CMD, some 
PEEK, even SET and RESET, and more are rewrit- 
ten for execution on a Model II . What CONVERT 
cannot rewrite, will be listed by type of error and 
line number. CONVERT will execute under Model 
I or Model II Disk Basic with no changes. Useful 
'Summary of Conversion' included. 
(Available on formatted disk) 

on Model I diskette (upload yourself) s 16.95 

on Model II disk $19.95 

Price includes postage and handling Texas residents add 
5% sales tax 




Unique Software 
700 Executive Plaza Building 
Fort Worth, Texas 76102 

If you're looking for unique software look for U.S. 

Circle 67 

* Radio Shack is a division of Tandy Corp and not affiliated with Unique Software 




EMMANUEL 8 GARCIA, JR. 
& ASSOCIATES 

203 N WABASH 
CHICAGO, ILLINOIS 60601 
PHONE (312) 782-9750 




NOW IN ITS THIRD YEAR OF 
SPECIALIZING IN PRODUCTS 
RELATED TO THE TRS-80* 

• Dealer of quality software and hardware — 
we sell only the best, proven items. 

• Sponsor of CHICATRUG— monthly 
learning sessions for TRS-80 users. 

• Publisher of "CHICATRUG News," monthly 
publication for TRS-80 users. 

■ ■ Send for sample issue ■ ■ 

• Sponsor of the FORUM-80 of Chicago, a 
24-hour computerized bulletin board. 

• Author of "Pensionmaker," the revolutionary 
defined benefit pension system running on 
the TRS-80 Model I where other pension 
actuaries are using mainframes. 

• Repair facilities (90-day warranty on new 
equipment and 30 days on used). 

E.B.G. & Associates is NOT affiliated with Tandy Corporation or Radio Shack. 

"TRS-ao is a trademark of Tandy Corporation. Circle 69 



If you'reserious about thestock market, you need 




Watch 48 to 400 of your favorite stocks 
without a 15 minute delay. 

Tickertec™ is a computer program that displays the NYSE or AMEX 
tickertape on your TRS-80™ Model I or both exchanges as an option on 
the Model II. You see every trade as it is reported by the exchange and 
track the last ten trades, tickertape reported volume, and high and low 
limits on the stocks you are watching. Tickertec prices start at $1,000.00 
with many optional features available including hard copy and 
portfolio management systems. Programs may be purchased for cash 
(i.e., hard dollars) or payment can be arranged in the form of dis- 
counted brokerage commissions (i.e., Soft Dollar Software™). Exchange 
fees are extra. Call for FREE brochure TOLL-FREE at (800) 223-6642; 
in New York call (212) 687-0705; or mail the coupon today. 
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PEEK and POKE for TRSDOS 2.0 (Model II) 
The patches for implementing PEEK and POKE on 
the Model II were sent to us from Belgium. Many 
thanks to Daniel Lesenne, who sent us the 
information. 

Be warned that all eight patches must be entered 
for this modification to work. They replace the 0CT$ 
and NAME statements of Basic, so if you need these 
two commands, do not make the following changes! 

1. Make a fresh backup copy of TRSDOS 2.0 or 
2.0A. 

2. Build a DO file (see pages 2/13-2/15 of the 
TRSDOS section of the Model II owner's manual) 
which reads as follows: 

PATCH BASIC A=67F3, F=AFCD8761, C=CDDD3CD5 
PATCH BASIC A=67F7, F=C5CD7166, C=E72CCDEA 
PATCH BASIC A=67FB, F=E741 E753, C=3CD1 1 2C9 
PATCH BASIC A=67FF, F=E3011E00, C=CD5D447E 
PATCH BASIC A=6803, F=09444D, C=C3FB3A 
PATCH BASIC A=28FB, F=CE414D, D04F4B 
PATCH BASIC A=2A05, F=CF435424, C=D045454B 
PATCH BASIC A=5ADB, F=CD8A4E, C=C3FF67 

When you are sure you have no errors in your file, 
execute the DO file. "PATCH IS DONE" should 
appear eight times. If you see any error message, 
make note of which patch caused it. You will have to 
enter that particular patch by hand from TRSDOS 
READY. 

At this point, PEEK and POKE should be a 
permanent part of Basic on this disk. 

PEEK and POKE will now have the same syntax as 
Model l/lll: 

PEEK(memory location) 
POKE memory location, number 
Number is any integer in the range 0-255. Memory 
location is any integer up 32767. Locations above 
32767 must be converted using the formula: 
-1*(65536-desired address) 
Using PEEK and POKE will open up the world of 
string and line packing, saving variables between 
programs, and so forth. 

Have you tried the short program in the color 
computer operation manual? If you are using your 
own color television, it may be well to try it. If yours is 
like ours, the red will be dark purple and the orange 
will be red. Run the program, it puts color bars on the 
screen and tells you which color should be where. 
Then adjust the television controls until the colors 
are right. You will be surprised at the difference in 
your displays. 



Line Printer VI and Graphics 
Line Printer VI users need to be aware that they 
have a medium-weight printer. Continuous printing 
for extended periods of time can cause the head to 
overheat and a fuse to blow. This is particularly true 
using graphics! It seems graphics characters put a 
heavier load on the head (they draw more current) 
when all pins are fired in rapid succession. Radio 
Shack is advising that after printing a full 1 5" print 
line of graphics, the printer needs to restfor 1 minute. 

Color Computer Note 
If you own a basic or extended basic color computer 
you may have noted that the statement: FORI=ATOB, 
will give you a syntax error. We have found that 
saying A+0 will get rid of the error. That's not nice 
though, and checking with Microsoft we found that 
a space is required after the A. This brings up an 
interesting point: the color basic is slightly different 
than what we have been used to in other TRS-80's. 
There are several places where a space is required to 
prevent syntax errors. 



Point(X.Y) Function for Alphanumerics 
Robert Hood, of Bremerton, Washington, sent us the 
following: 

In the Model I Level II Basic Manual the POINT(X,Y) 
function is generally used for determining whether a 
specific graphics block is on or off. Thisfunction does 
not apply to alphanumeric characters. However, 
there is a simple method to make the same test for 
these characters and even to determine if a specific 
character is at a specific screen location. This is done 
by peeking the Video memory. 

To determine the desired PEEK location add 1 5360 
to the PRINT@ location. PEEK(location) will return 
the ASCII code for the character. A blank space will 
be 32. Since the SET(X,Y) function places the 
graphics code number in the video memory this 
method will also detect those codes as well. 

One example of a use for the procedure is shown in 
the following subroutine: 

4998 REM THIS SUBROUTINE LIMITS THE SCREEN DISPL 
AY TO 1 5 LINES OF TEXT WITHOUT THE USE OF LINE 
COUNTERS. 

4999 REM IT MAY BE USEFUL IN THE DISPLAY OF A FILE 
WHERE THE NUMBER OF LINES TO BE DISPLAYED IS 
UNKNOWN. 

5000 FOR SL=16526 TO 16270 
501 IF PEEK(SL) <> 32 THEN 5040 
5020 NEXT SL 

5030 RETURN 
5040 SL= 16271 

5050 PRINT@977,"H!T ANY KEY TO CONTINUE 
DISPLAY"; 

5060 ST$=INKEY$ : IF ST$=""THEN 5060 

5070 CLS : RETURN © 
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ALL PROGRAMS by JAMES F. WILLIAMS 
Reviews In 80-U.S . and CREATIVE COMPUTING 
LOOK! MODEL III SOFTWARE! 



ASPTCH L h l—> Loads behind Radio Shack's EDITOR ASSEMBLER 
1.2 and adds many features while taking very little memory 
from the original text buffer. Reserve memory, dump object 
code directly to memory and execute, (NEW!) verify source 
dumps and use <BREAK> to exit unwanted (L)oads, return to 
BASIC with EDTASM/ASPTCH protected in high memory, combine 
EDTASM/ ASPTCH for single load, and MORE 1 For MODEL I (L2) 
and MOfiEL JJJL 16K and up. Only in. 

0RQAN--> Play your TRS 80 keyboard In real time as If It 
were a 2 manual electronic organ. Display shows 2 manual 
organ console with TRS 80 keyboard characters overlayed. 
Asterisks appear on screen as keys are pressed. Two volume 
and 11 tone quality settings. Play single note 
and chords! Record performances directly to 
or listen in real time by connecting aux cable to 
Model I, L2, i*K and up, and MODEL III , 16K and 



sett I ngs 
melod I es 
cassette, 

amp. For ... UH , Q1 , u ,., 

up--> only $12 . Model I, Disk verslon--> $15 . 

DATORQ, — > Unique file keeping system designed especially 
for tape users (Disk and Stringy versions also available). 
Use for Indexing magazine articles, budget Info (check amt., 
date, no., expense code, description, etc.), mailing list, 
collections index (LP, coin, etc.) and much, much more! 
Extremely memory efficient with variable length fields and 
user definable delimiters (Including special tab characters 
for left justified fields). Control program Is In BASIC for 
easy user modification, and machine language module for high 
speed sort, search, write, verify, read, and merge. Advanced 
editing features and optional printer output. For Model I, 
L2, 16K and up Tape and Stringy Floppy*- 121. Disk (32K and 
U8K)> 121. 

££XAkL--> Make back-up copies of almost any L2 format 
tape (BASIC, SYSTEM, EDTASM source, data, and many programs 
with special loaders). Model I, L2, UK and up, and MODEL III 
(with selectable baud rate), 1SK and up. Can you believe 
only 12? 




You can now order 
reading programs for 

READING COMPREHENSION- ECONOMICS- 
PHYSICS- MATH-AUTO MECHANICS- HISTORY 

2 FULL LENGTH PROGRAMS only $9.90 (one cassette) 
16 PROGRAM COURSE only $77.00 (8 cassettes) 

i Order by checking the desired programs: bebbbbi 



laiBBiBiBa 

I 'Reading 
I Comprehension 
I cd 1 
I n cd2 $99 ° 

j n §d4 $9 - 90 
I ' 12 more Cd's available 



*Auto 
Mechanics 

D Ka>- 90 

" 12 more Ka's available 



□ 



Physics 1 
Physics 2 
Economics 1 
Economics 2 



$9.90 
$9.90 



History 9 
History 10 



$9.90 



2 Demo programs 
U and Catalogue $9 ' 90 

"TRS-80 IS A TM OF TANDY CORP. 

I have enclosed a total of 



Utilize with any Model I, Level I or 
Level II, 4K and 16K or any Model III 
Displays lower case if you have it. 

$9.90 for each 2 program 



cassette ordered plus $.50 per cassette for shipping/handling to: 

Educational 
Systems, Inc. 

P.O. Box 1226, Norman, Ok. 73070 Circle 78 

Name 




Address 
City 



-State 



Send check or money order to BYTE MISER SOFTWARE, 720 W. 
Haven Blvd., Rocky Mt., NC 27801. 
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ASSEMBLY LANGUAGE 

Tired of buying book after book on assembly 
language programming and still not knowing your 
POP from your PUSH? 

REMsoft proudly announces a more effi- 
cient way, using your own TRS-80® , to learn the 
fundamentals of assembly language programming 
-at YOUR pace and at YOUR convenience. 
Our unique package, "INTRODUCTION TO TRS-80® 
ASSEMBLY PROGRAMMING ", will provide you with 
the following: 

Ten 45-minute lessons on audio cassettes. 
e A driver program to make your TRS-80® video 

monitor serve as a blackboard for the instructor. 
A display program for each lesson to provide 

illustration and reinforcement for what you are 

hearing 

9 A textbook on TRS-80® Assembly Language 

Programming. 
• Step-by-step dissection of complete and useful 

routines to test memory and to gain direct control 

over the keyboard, video monitor, and printer. 
How to access and use powerful routines in your 

Level II ROM. 

This course was developed and recorded by 
Joseph E. Willis and is based on the successful 
series of courses he has taught at Meta Technologies 
Corporation, the Radio Shack Computer Center, and 
other locations in Northern Ohio. The minimum 
system required is a Level II, 16K RAM. 

i-1 only $69.95 

REMsoft, Inc. 

571 E. 185 St. 
Euclid, Ohio 44119 
(216)531-1338 

Include $1 50 for shipping and handling Circle 37 
Ohio residents add 5'/z% sales tax, 

TRS-80® is a trademark of the Tandy Corp. 





NEW EDITION 



The only microcumputer chess program 
available which examines all legal moves! 
We challenge any microcomputer chess 
game to solve number 1000 from Rein- 
fekfs 1001 Checkmates, much less beat 
SFINKS's time of 15 seconds. Buy the 
best, SFINKS 1.81! 

TRS-80 32K Model I 

cassette or disk only 29.95 

Original version of SFINKS 

is now available on 

Model III cassette only S 29.95 

WILLIAM A. FINK 

13<X) S E. 3rd AVENUE 
DEERFIELD BEACH. FL 33441 



c/ttwt <Jtl///t' 
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SAVE TIME & MONEY BY 
CONTROLLING YOUR LONG 
IISTANCE TELEPHONE COSTS 



LONG DISTANCE ANALYZER will 

» Sort your billed calls 

• Identify each party called (from your known 
list) or print locations of unrecognized 
numbers 

• Total the cost of calls to each number, to all 
numbers, and to all unrecognized numbers 

• Analyze calls and tolls by area code, state, 
and WATS zone 

8 Print an alphabetical directory of recognized 
numbers 

• Save verification time 

• Create cost-consciousness 

• Facilitate cost accounting and client billing 

• Isolate personal calls and billing errors 

• Reveal inefficient use patterns 

o Help you perform WATS feasibility studies 

Requires Model I, II, or III TRS-80*, Level II, 16K, 
and 1 disk. Printer is optional. No connection to 
phone system. 



Model 


Cassette 


TRSDOS* disk 


1 


$95 


$135 


II 


N/A 


$155 


III 


$95 


$135 



Brochure on. reqaest. 

Send model number and check or money order to 

Golden Braid Software 
R O. Box 2934 
Sarasota, Florida 33578 



•TRS-80 and TRSDOS 
are trademarks 
of Tandy Cor poration. 
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TRS-80 LEVEL II 

•PLANET LOCATOR - As the name implies, this program will com- 
pute the location and display of the positions of the planets. It also 
provides important statistical data. This is a valuable tool for the 
ASTRONOMY BUFF (16K) $ 9.95 

•LEAVE ONE - This game places you against the computer in a 
match (taking turns and using game rules) to pick up objects and 
leave the last object for your opponent. The game itself can be 
played without a computer, but there is a trick to winning. 
(4K) $ 6.95 

•CHECK STORAGE AND YEAR END SUMMARY - This two- 
program system handles the capture, sorting, summarizing and 
various other important functions needed to maintain you data. 
Graphics have been incoporated to simplify keying in the checks. 
The second program is the year end summary report. This is very 
useful at tax time or just as a expenditure analysis report. 
(16K) $11.95 

•AMORTIZATION - This handy little program will calculate a six- 
column display as follows: 
COL. 1 - Payment Number 
COL. 2 - Monthly Payment Amount 
COL. 3 - Portion Applied To Principal 
COL. 4 - Portion Applied To Interest 
COL. 5 - Remaining Principal Balance 
COL. 6 - Principal Paid Back To Date 

Totals at the end show total interest and total amount paid. 

(4K) $ 6.95 

•MESSAGE CODER-DECODER - Have any written material you 
wish to keep private. Select one of 250 coding methods which will 
scramble and change your message so that only the computer can 
decode it back to its original form. (4K) $ 6.95 

•CONTRACT PROGRAMMING: For as little as $20.00. Send a 
written summary of desired system. You will be contacted as to 
price. 

HOW TO ORDER 
Send Check or money order to ARLINGTON MICRO-SOFT, INC. 
4800 Crestmont Court Arlington, TX 76017 

Name 

Street 

City/State- 
Zip. 




-Phone ( ) 



Texas Residents add 5% Sales Tax Allow 4 to 6 weeks for delivery 



MODEL ! oi III sof rwARE 



intraSORT machine code becomes 
part of YOUR BASIC PROGRAM. 

• CLOAD CSAVE LOAD SAVE TAPE or DISK 

. NO MACHINE LANGUAGE KNOWLEDGE REQUIRED 

• NO SYSTEM or MEMORY SIZE hassles 

o SORT any type and combination of fields with each 
field ascending or descending 

• SORT multi-dimension arrays 

• VERY FAST and compact 

• Complete USERS GUIDE 

« Includes full feature mailing list/label program 
demonstrating all SORT features 

• •• COMPLETE PACKAGE ONLY $19.95 

(requires Level II or Model III Basic, 16K) 

BASIC ARCADE KIT (Level I only) 

Hours of action fun for adults and children are pro- 
vided by a single ready to run program written entirely in 
Level I BASIC. Designed for the novice programmer, 
twelve easy to use, fully documented subroutines and 
three demo games; TAG, PHASERS, and SKETCH make 
up the program. Subroutines provide: three keyboard 
commands which alter graphics motion without halting 
it; keyed input without disruption of display; two players 
with separate skill levels & scoring; obstacle deflection; 
random motion; and cassette storage of graphic 
displays. Write your own games or just ENJOY! 

includes 20 page guide ONLY $9.95 
Original Software by: 



\ technique COMPUTFR SOFTWARF 

,'/?{) S Oak S: • f'u.t Angeles WA W3bY 
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Hi V... ' 




mw 



computerized 
index to: 
licrocomputing 
1AUD & 80- US 

■or the TRS-80 



Unlock the filing cabinet ' 
on your shelf. Rnd 
articles, ads, reviews anc 
programs- in seconds! 

Index & Programs & Manual US$29 cash, visa, or mastercard 
Manual available separately US$8 

Requires 48K TRS-80* Mod I with 2 Drives & TRSDOS 

*TRS 80 is a registered trade mark ol Radio Shack 

RO. Box 397 Stn. A 
Vancouver, B.C. Canada V6C 2N2 
Telephone (604) 682-7646 
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AT LAST! 

Mass production prices for high quality software Buy direct and save 50%. Also 
available for CPM and HDOS 

DATA BASE MANAGER Mod I & III S69, $149 (48K) Mod-ll $199 

Maintain a data base and produce reports, all without user programming. Define 
file parameters and report formats on-line Key random access, fast multi-key 
sort, field arithmetics, audit log, label.. No time-consuming overlays 500 happy 
user-s in one year. Mod-ll and 48K versions have over 50 enhancements, including 
40 fields maximum, "IDM-M2 is great!" - 80-US. 

A/R Mod-I $69 Mod-ll $149 Mod-Ill $69 

Handles invoices, statements, aging, sales analysis, credit checking, forms input, 
and order entry. Unlike other accounts receivable programs, ours can be used by 
doctors, store managers, etc 

WORD PROCESSOR $49 

Centers, justifies, indents, and numbers pages Mod-I version features 
upper/lower case without hardware modification! File merge option available 

MAILING LIST Mod I & III $59, S79 (48K) Mod-ll $99 

The best! Compare and be selective. Includes forms input, 5-digit selection code, 
zip code extension, sort on any field, and multiple labels. Who else offers a report 
writer and merges with word processor? 

INVENTORY Mod I & III $89, $109 (48K) Mod-ll $149 

Fast key random access. Reports include order info, performance summary, EOQ 
and user-specified reports Many people have converted to our system! "Next to 
impossible to damage the file " 

GL. A/R. A/P. PAYROLL Mod-ll $129 each 

Integrated accounting package 100+ page manual As opposed to Osborne's slow 
binary search and 64 column screen, we use fast ISAM and 80 columns. Dual disk 
and TRSDOS required 

L216 $59 

A cassette package of 10 business programs for Level I1 16 K systems. Includes 
word processor and data base manager Poker game $19 

Most programs are on-line, interactive, random-access, bug-free, documented, 
and delivered on disks Mod-I programs require 32K TRSDOS We're ff 1 in business 
software — don't let our low price fool you! Ask for our free 20-page catalog if 
you're still not convinced Compiled versions are available 




MICRO ARCHITECT. INC. 
Dothan St., Arlington, MA 02174 
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$2.5G per half inch and $2.50 each 
additional half inch per insertion. Ads 
must he typewritten or printed clearly, 
and must be accompanied with payment 
in advance. No telephone orders of "bill- 
me's" will he accepted. Unclassified ads 
are always set in the type on this page, 
with the first line in bold caps. Use the ads 
on this page as a guide to figure your size 
and payment. Send to: 80- U.S. Journal, 
3'838 South Warner Street, Tacoma, 
Washington 88409 



TRS-80 EQUIPMENT! DISCOUNTED TO YOU 
Centronics 737(same as Line Printer IV) $775. 
Okidata Microline 80 40/80/132 column plus 
grannies. Handles single sheet/roll/fanfold 
paper $504 (cable for either $25). 16K RAM 
set/8 $32, Mini Flippy Kits (punch and use both 
sides of your diskettes) $7.50. 100 =/- programs 
on disks $39. Novation Modems, acoustic $145, 
direct $159, Diskettes X10 BASF $27, 3M $32, 
Maxell $36, Dysan $42. All equipment factory 
warranted. Write for the complete list Specify 
Model i or II. Richard Smith, 3078 Baronscourt 
Way, San Jose, CA 951 32 (408) 258-5202(071 ) 

WANTED: "SCRABBLE TYPE'CROSS- 
word game for the TRS-80, any model. Write to 
Margaret, PC) Box 7112, Tacoma, WA 
98407 (071) 

DEALERS WANTED. GREAT DEMAND FOR 
school soft-ware with educators, students & 
families, AA Educational Services, 7211 South 
1 80th St., Kent, WA 98031 (071 ) 



PAKE YOUR LIST ILLEGIBLE CONCEAL 
your access codes. $5.00 cash. Make the bums 
look like bums, AA Educational Services, 721 1 
South 1 80th, Kent. WA 9803 1 (071) 



CAN YOU DEMONSTRATE L2 16K TO 
schools, students, families in your area? Write for 
dealer discount schedule. AA Educational 
Services, 721 1 S 180th, Kent, WA 98031 (071) 



5 FOR 1 PROGRAM EXCHANGE, SEND 
1 unreserved program that runs plus $5.00. 
Receive 5 programs in exchange. 5 for 1 Program 
Exchange. 25824 124th S E, Kent, WA 
98031 (071) 



FOR SALE - THE MICROCONNECTION 
almost new direct connect modem for the TRS-80 
Model I complete with all instructions and 
programs $150.00. Call Roger evenings (201) 
886-2447 (051) 



GRAOE800K/ ROLL BOOK CONVENIENT 
and useful for the teacher Up to 44 scores in 3 
categories for each of 44 students. No real limit 
on number of classes Instant progress reports 
Clear & easy displays of scores Teacher- 
passworded. Requires Mod I or III, disk Printer 
supported, $30 for disk or large stamped 
envelope for instructions Hal Broenkow, 85 1 1 
226 SW , Edmonds, WA 98020 



FOR TRS 80 RS 232 BOARD. FIX INTER- 
mittent problems due to intermittent PC board 
connector with a connector brace. Easy to install. 
Only $4.95. Gunn RS-232 board with two8-bit in 
& two 8-bit out ports. $35. Bare board and 
schematic. Schematic $1.00 (TX residents add 
5% tax). Gunn Industries, 704 Franklin Blvd, 
Austin, TX 78751 (071) 



WORD PROCESSOR, PERSONAL FORM 
letter printer. Adds addresses, inserts 1st name 
from address into letter body. Global word 
search, replace. Caps-lock, overstrike, move 
words between lines. Delete, replace, insert, 
move, center, right-justify lines. Basic-like line 
edit, with A,C,D,H,I,K,L,S,X commands. T/D 
save. System? (16K, WP only) $10 on tape, $12 
on disk. D D Hinrichs, 2116 S E 377th, 
Washougal, WA 98671 (051 ) 



DATA BASE MANAGER - IDM - "There are 
many data base managers available these days, 
some may do the job for you, others may not. This 
one is doing a very good job for us." - 80-U S Jul 
'80 Now, new documentation and fastest 
machine sort. Mod II $199. Mod I 48K $149 
Micro Architect Inc., 96 Dothan St., Arlington, 
MA02174 (111) 



GL, A/R. A/P, PAYROLL FOR TRSDOS 1.2 

Not Osborn's Fast ISAM, double entry 
accounting, full screen and integrated. MAI 96 
Dothan St., Arlington, MA 02174 (091) 

ROMAN CONQUEST FOR 16K LEVEL 
II Caesar orders you to seize cities, sell slaves, 
draft centurions and colonize. Can you cope with 
fierce barbarians, plagues, rebellions and the will 
of Caesar? $9.95 (cassette) Anthony Targonski, 
106 Fifth St., Cambridge, MA 02141 



PROFORMA CASH-BUDGET PROGRAM: 

Computes a forecasted cash-flow shecdule for up 
to 12 periods in advance. LEASE-PURCHASE 
program: Compares lease and purchase costs, 
taking into account investment tax credit and 
income tax, and computing relative interest rates 
PROCUREMENT PROGRAM: calculates the 
optimal amount to purchase of a commodity in 
each of next subsequent periods, in times of 
varying prices over time. COLLEGE 
ENROLLMENT PROJECTION PROGRAM: 
Forecasts Community College enrollment in 
advance based on the population of the area from 
which students are drawn and the enrollmentfor 
the preceding seven years. Package of 13 
business analysis programs including ratio 
analysis, economic order quantity, leverage, cost 
of capital, IRR and NPV, depreciation schedule, 
capital budgeting, risk-adjusted discount rate, 
etc. For the TRS-80 Model I or III. Output on video 
or line printer- Requires 2 disk drives and 32K 
capacity. For brochure write to Management 
Systems Software, 5200 Brittany Drive #1006, 
St Petersburg, FL 3371 5 (81 3) 864-4347 (051 ) 

DISK USERS: DOUBLE YOUR MEMORY 

space. We have developed a method of using the 
flip-side of your 514" or 8" diskettes For $5 
receive full instructions. Microcomputer 
Services, PO Box 263, Clinton, MD 20735(051) 

CHEAPTALK FOR THE TRS-80 - SOFTWARE 

package lets your TRS-80 1 6K Level II reproduce 
speech through any small audio amplifier 
connected to the cassette plug. Digitize your own 
words with simple hardware mod, $1 9.95 ppd or 
send SASE for more details to Alan Saville, PO 
Box 5190, San Diego, CA 92105 (091) 



WIN WITH OUR HANDICAPPING AIDS - 
Designed exclusively for use with TRS-80, we 
believe our "Greyhound" and "Harness Racing" 
software handicapping aids are the most 
advanced/useful such systems available 
anywhere. Years of research have gone into the 
development of the algorithms used. Designed 
for ease of operation while ensuring a most 
comprehensive approach. Used correctly, a 
greater return on your track investments will be 
yours. Requires minimum 1 6K Level II Just 
$24 95 (per system) for cassette for $28,95 for 
5Vt" floppy disk (add $1 shipping, CA residents 
add 6 1 /2% sales tax), save $1 with purchase of 
both systems, dealer discounts available. Send 
check or MO to WelMur of California Inc , PO Box 
M-11C, Fremont, CA 94537 **?Soon availabel 
for the new hand held computers, (051 ) 



TRS-80 LEVEL II III PROGRAMS ON 
cassette with listing and documentation original 
programs, two computer copies each, money 
back guarantee. Subroutine structure with 
remarks makes modification easy. Discount $1 
per pgm on 2nd or more pgms if separate tapes 
not required. Send SASE for more infor on a 
particular program or send cost via check or MO 
to: Practical Programs, 1104 Aspen Drive, Toms 
River, NJ 08753 - GW01P - Miss America 
Computer Notepad (4K) $4 A handy program to 
use your TRS-80 as a scratch pad Stores up to 10 
lines of 254 characters each for 10 codes. Use 
codes to add new lines of data or retrieve all 
stored data, GW02PB - Tape Address File 
Handler (8K) $7. Uses two cassettes to store and 
update an unlimited number (limited by size of 
cassette/s) of addresses. Four modes of 
operation - initiate, update, add & retrieve any 
combination of modes possible in any tape pass. 
Fields include first and last name, address, city, 
state, zip, phone, retrieval code and remarks 
Requires El, printer and second recorder. 
GW03PB - Mail Order Gener (8K) $8 A really 
neat easy running program for mail ordering. 
Uses the TRS-80 to generate and print a catalog 
order. Then manipulates it per the following 
menu: Add, change, delete, print, change 
addressee, totals, review order, save to tape, load 
from tape, check space, sort, form a new order or 
end. Optional sub accounting allows allocation of 
line item costs with subtotals per account 
Optional constant Cat. No. prefix/suffix makes 
order entry easier for 32/40/80 column printer 

(051) 



CALCUL80 - USE YOUR TRS 80 AS A FULL 
function calculator with versatile memory Hook 
up printer and printout is automatic Screen 
display always shows memory contents As easy 
to use as standard calculator, but with bonus of 
alpha-numeric entry and output. Formatted or 
floating decimal. User oriented, with full, clear 
documentation Perfect for taxes, budgets, 
checkbooks. Level II, 4K or more. Cassette $ 1 2 95 
from Microlex, 19224 Castlebay Lane, 
Northridge, CA 91326. California residents add 
6% tax, (051) 

EXATRON STRINGY FLOPPY SOFTWARE 
and patches 1) ESF version of ENHBAS, 
enhances Basic from Cornsoft Group - complete 
package $49 95, supplied on wafer 2) Basic 
Toolkit (c) Bottom Shelf, patch only, 3) 
Microchess 1.5 (c) Peter Jennings, patch only 4) 
Pinball (c) Acorn Software, patch only, 5) 
Basketball (c) Acorn Software, patch only. New 
patches will be added on a regular basis. Call or 
write for patch prices and additions to this list, 
Multi Media Systems, PO Box 41084, 
Indianapolis, IN 46241 (317)839-6520 (091) 
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ATTACK OF THE YETI FOR 16K LEVEL II 

You're a scientist leading an expedition in search 
of the Yeti, otherwise known as the "abominable 
snowman" In the Himalayas, aided by a small 
band of native Sherpa guides and your 
mountaineers, you search for the beast, 
financing your expedition along the way 
capturing wild animals. Yet, there are 
avalanches, attacks by the animals and other 
disasters as well as a certain creature who has a 
nasty habit of carrying off your men. Search and 
set your traps carefully! $9.95 (cassette). 
Anthony Targonski, 1 06 Fifth St., Cambridge, MA 
02141 (051) 

L.U.S.T. (A QUASI-EROTIC EXPERIENCE^ 

From the people who brought you Sin Palace. 
Send $3 for program on cassette, catalog and 
Genuine Casino Souvenir Paul's Electric 
Computer, PO Box 42831 U, Las Vegas, NV 
89104 (111) 

ASTEROID RUNNER - TRS-80 ACTION 

game. Maneuver your ship through the array of 
creeping asteroids, and success Fully dock your 
ship on the opposite side of the storm. With sound 
effects! 16K L2, $4,95 The Electro-Gamesmen's 
Palace, 108 Carousel Dr., Delmont, PA 15626 
(412)468-8996 (051) 



LINE PRINTER II INTERFACE TO KEYBOARD 

for sale. RS #26-1416, Used 6 months list $59, 
sale $35 first MO or cert check takes, Paul C 
Richwine, 5516 Central Dr, Monroe, Ml 48161 

(051) 



NEW ROCHESTER DATA TYPEWRITER 

interface. Complete with extra parts and 
paperwork Special Scripsit included. Sets on any 
electric typewriter keyboard. No expansion 
interface required. Many adjustable features 
Works great, $525 value for $450 or possible best 
offer. John Berkey, 1 637 Cawdor Dr, Fayetteville 
NC 28304 (919) 424-4072 (051 ) 



CASSETTE DUPLICATING - LARGE OR 

small quantities, quick turnaround, low rates, top 
quality screw cassettes. Write for rate sheet 
EDU-WARE EAST, PO Box 336, Maynard MA 
01754 (XXX) 

B- 17 TAPE OPERATING SYSTEM ilfs YOU 
save/load Basic or System programs four times 
faster. Save/load data arrays 400 times faster! 
Backup your system tapes with B-17. Complete 
with operating instructions and 30 day 
unconditional money back guarantee. $24.95 
ppd 1st Class Also ask for free Resource 
Brochure containing eye-popping value We'll try 
to match any price even if we have to raise our s to 
do it. ABS Suppliers, PO Box 8297, Ann Arbor Ml 
48107(313)971-1404 (091) 



TRS-80 TO H-14 PRINTER INTERFACE NO 

software driver required! Pr int at 4800 baud with 
full handshaking & printer-status support 
Interface connects to parallel pr inter card-edge of 
Radio Shack expansion interface. Parallel data is 
converted to serial form to drive the H-14. No 
software driver program is needed - the computer 
"thinks" it is connected to a parallel (Centronics- 
type) printer. This unit connects externally to your 
expansion interface so you don'-t void your Radio 
Shack warranty. The PTS-3 interface is 
assembled and tested and is covered by a limited 
6 month warranty Call or write for more info 
Multi Media Systems, PO Box 41084 
Indianapolis, IN 46241 (317) 839-6520, or send 
$89.95 plus $3.50 shipping & handling (091) 



NEW QUARTERLY NEWSLETTER FOR 

VisiCalc* users. Disks too $7.50, Micro-Calc 
Business Users Group, PO Box 12039 Salem 
OR 97309 (0 e ^j 



EXTENSION CABLES FOR PRINTERS - 
Centronics or RS 232QEAI) Interface. $20. +$1 
per foot. Please indicate length required (8 ft max 
for Centronics type) and send your check or MO 
to: Data Devices International, 2504 Clearwood 
Dr., Arlington, TX 7601 4, or call (81 7) 261-4253 
if you have questions. (051) 

GREEN SCREENS COST TOO MUCH?? 1 /8" 

green Plexiglas (same as most others) cut to fit 
TRS-80 Mod I . $5.95, custom sizes up to 12 X 
12".. $7.95, add $1 shipping. Satisfaction 
guaranteed. Data Systems, Box 99, Fern Park FL 
32730 (051, 



POCKET COMPUTER (TRS-80) SOFTWARE.. 
Appointment Calendar Schedule & Maintain a 
week of appts. (6 per day). Alarm warns of each 
appt. Review, add, modify, cancel, save appts 
with ease. $9.95 - Electronic Checkbook: 
Maintains checking acct. balance, checks & 
deposits (including descriptions). Balances acct. 
with bank statement. $5.95 - Blackjack Helper: 
Beat the dealer with this aid. Tracks cards of all 
players and gives you the odds of the next card 
"busting" your hand. Handles multiple decks too 
Lets you know which and how many cards 
remain in the deck. $7,95 - Additional software 
available (Mod I & III also) Send SASE for 
catalogue, Blanton Software Service, 4522 Br air 
Forrest, San Antonio, TX 7821 7 (51 2) 657-0766 

(051) 



MODEL I & III SOFTWARE... WORD 
processor: Design, develop, review, edit, justify, 
move lines, print, save, ets any type personal or 
business document. Can also print expanded 
characters. Powerful, versatile, yet simple to use 
word processor does it all (16K tape). $19,95 - 
Personal/Business Mailing List: List maintained 
in memory as part of program for fast & simple 
access and modification Eliminates need for 
separate and cumbersome data tape. Prints 
labels or envelopes in normal or expanded 
characters (return address too) Assign up to 80 
different codes to names. Review/print by name, 
code or entire list $6.95 - More programs 
available. Send SASE for catalogue Blanton 
Software Service, 4522 Brair Forrest, San 
Antonio, TX 7821 7 (51 2) 657-0766 (051 ) 



GREATEST BARGAIN! (1) LEVEL II BASIC, 

16K software package, word processor! 
inventory, data base manager, check balancing! 
statistics, deposit calculator, stock management, 
label printer, sales analysis, sort and linked list 
utility All 11 programs for $59. (2) Integrated 
accounting package: A/R, A/P, GL and Payroll. 
$129 each. $20 for manual alone ForTRSDOS I 
TRSDOS II, CBASIC and MBASIC on CP/M. For 
FREE catalog, send SASE (280) to MAI, 96 
Dothan St., Arlington, MA 021 74 (051 ) 



UNIQUE TRS 80 SOFTWARE & BOOKS 
Disassembled Handbook for TRS-80 all postpaid. 
Vol 1 5th printing "save one year's study" $10. 
Vol 2 3rd printing "all you wanted to know" $15. 
Vol 3 New 1981 "exploring new horizons" $17. 
Morse code transmit program: cassette/disk 
$15. Richcraft Engineering Ltd. Box 1065, 1 
Wahmeda Industrial Park, Chautauqua Lake NY 
14722 Phone (716) 753-2654 for COD orders 

(111) 



MAKE MONEY WIT H Y OUR 16 K 

computer!! Computer assisted introductions is 
the latest in money-making ideas that anyone 
with a little initiative can easily turn into a full- 
time business. Send SASE for more info, or get 
starter package of two programs and all details 
for a mere $40. (+$5 if you prefer disk)! MAX 
ENTERPRISES, PO Box 19386, San Diego CA 
92119 (Q51) 



TIME FOR THE SHERIFF FOR 16K Level II. 

You've been elected temporary sheriff of 
Honesty, New Mexico, the wildest town this side 
of the Rio Grande and you must do anything to 
keep the peace Patrol the bank, general store, 
hotel, ranch and sheriff's office but watch out! 
Bank robbers, gamblers, gunfighters and 
renegades have other plans! When the Marshal 
returns he'll judge your record (point score) and 
decide if you should be reelected, fired or hanged 
from the nearest tree Only $9,95 (cassette) 
Anthony Targonski, 1 06 Fifth St., Cambr idge, MA 
02141 (051) 

PERSONALIZE YOUR SCRIPSIT™!! 

PERSCRIP lets you design your OWN word 
processor Your name or message up to 35 chars 
will be displayed upon initializing your word 
processor Defaults (all margins, spacing, video 
width, etc ) will be yours, not arbitrary to be reset 
constantly Change your cursor to any character! 
Rid yourself of "loud", eye-straining graphics 
(cursor, bottom demarcation line, etc). Underline 
(most printers)!! Finally, the most eye-saving 
SCRIPSIT™ enhancement ever: our famous non- 
cursor Try it, and you will never use a 
conventional cursor again!! Package includes 
manual, cassette, complete map of graphics 
characters Disk SCRIPSIT™ req. Specify 
SCRIPSIT/LC or /UC, PERSCRIP will be 
nationally advertised at $15.95. Mention 80- 
US , and your cost is $12 95. Add $1.00 
post/handling Send to Dave Rose, Rohan 
Concepts, PO Box 20873, Atlanta, GA 
30320 (mi 




Marazim 



This incredible program was written by a professional software 
consultant to TRW Space Systems This is a complex program 
carefully human factored for easy use It is a comprehensive 
horse racing system for spotting overlays in thoroughbred sprint 
races Your computer will accurately predict the win probability 
and odds line for each horse based on your entries from the rac- 
ing form The next day overlaid horses can be spotted on the 
track tote board The user's manual contains a complete explana- 
tion of overlay betting plus much more useful information The ap- 
pendix contains a detailed tab run of a 100 consecutive race 
system workout showing an amazing 50% return ($1 50 return- 
ed for each $1 00 flat wager ) Includes many features such as 
error correction, bubble sort, line printer output, automatic 
keyboard debounce, archiving, etc The manual may be o.dered 
separately for perusal for $7 95 and credit 
CHALLENGER 1P, 2P, or 4P 8K VERSIONS Now Available' 
Phd-1 Ussr's manual and cassette for 
Apple II (1 6K) , TRS-80 Level II ( 1 6K) , Challenger (8K) 29 95 
TRS-80 or APPLE DISK "4.% 
BRAND NEW FROM SDL: WIN AT THE RACES. This thoroughbred 
handicapping algorithm is based on a currently popular book on 
thoroughbred multiple regression techniques Both sprints and 
routes All of the features of PHD-1 plus more This program in- 
corporates the best data entry technique we've ever seen 
32K TRS-80 or APPLE CASSETTE u qs 

32K TRS-80 or APPLE DISK 3995 
BOOKS: Circ|e 74 

Winning at the Races 21 95 + 75 p&H 

Beating the Races with a Computer 14.95 -k 75 p&h 

Make checks payable to JOE COMPUTER OEPT U 
2271£ V entura Blvd., Suite F, Woodland Hills, CA 91364 
k5G& CA residents add 6 % sales tax ceeb 
{Wmm: PHONE ORDERS: 213-992-0514 aiK» 
•SEND $2 00 TO PLACE YOUR NAME ON OUR MAILING LIST 
fTRS-80 is a registered trademark ol Tandy Corporation 
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BACK ISSUE AVAILABILITY 
The following back issues of the 80-U.S. Journal are 
still available: 
May/Jun 79 
Jul/Aug 79 
Nov/Dec 79 
Jan/Feb 80 

Price per copy is $4.00 ppd 
approximately 3 weeks for delivery. 



May/Jun 80 
Nov/Dec 80 
Jan/Feb 81 
Mar/Apr 81 
Please allow 
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. . Looking Out For You 



Eight Inch Floppy Disk Drive Subsystem Model V1000 

The V1000, Vista's sophisticated new disk drive subsystem, sets 
new standards for ease of access and use. Its innovative design 
permits disk drives to be mounted or removed quickly and easily for 
system reconfiguration or servicing. 

Features: 

• Deluxe chassis with internal slide allows easy access. 

• Storage capacity from 250 kilobytes to 2.5 megabytes. 



• Desk or rack mountable. 

« Accomodates both single -sided and double -sided drives 

• Industrial quality cabinet with die cast front bezel. 

• Drives pull out for easy service and maintenance. 

Prices: 

Cabinet with (2) single sided drives w/power supply , . 
Cabinet with (2) double sided drives w/power supply . 
tib i t ( on 1 » + + ■*■**■*»■■***** + *# ##»*p*»i-i*»BB* 



$1595.00 
$2295.00 
$ 395.00 




Vista's Line of High Performance, High Reliability 
Products also Includes these Advanced Components 

Daisy Wheel Printer Model V300 



Features: 

96-character proportional, bi-directional printing 
Interface Parallel or RS232-C option 



$1895.00 
$2195.00 



* ft i 



■ ■ 1' 



1 I i ■ 



■Pi 



4 * * » • ■ ■ 



Model V200 



V300-25cps .. 
V300-45cps . , 

Minifloppy Disk System, Model V200 
Features: 

• Storage capacity from 200K bytes to 1.2 megabytes 

• Compatible with industry standard SI 00 main- 
frames. 

• System software • Vista CP. M TW VOS Disk 
Operating System and Basic h compiler. 

Prices: 

Starting as low as $695.00 
V200Exidy version SI \W. 




Model V300 



Vista Computer Company 1317 E. Edinger Avenue • Santa Ana, CA. 92705 • (714) '953-0523 

is a registered trademark nt D illicit Research 

Dealer Inquines Call Toll Free (800) 854-8017 



Pump Up Your TRS-80 with the ES/F Mass Storage System 




THESE FACTS SPEAK FOR THEMSELVES! 



MEET 

THE WAFER 




▲ Actual Size 



Actual Thickness ▼ 




CASSETTE 


ES/F 


MINIDISK 

JTI 1 11 1 W 1 1 \ 


SPEED 56 

{Seconds to 
load "Blackjack") 


6 

(5' wafer) 




CAPACITY 

(thousands 
of bytes) 


38 

(C-20) 


64 

(75 r wafer) 


59 
(TRSDOS) 


RELIABILITY 

(Designed for 
digita! data?) 


NO 


YES 


YES 


SYSTEM COST 

(First unit 
plus interface) 


$60 


$250 


$800 


MEDIA COST 

(in quantities 
of ten) 


$3.10 

cassette 


$3.00 
wafer 


$3.20 
disk 



Let's face it. Cassette players were not 
designed to store digital data and pro- 
grams. That's why we designed a digital 
storage system using a continuous tape 
loop: the Exatron Stringy/ Floppy 
(ES/F) and the Wafer. There's no ex- 
pensive interface to buy— the ES/F 
comes ready to pump up your TRS-80.* 

Once your TRS-80* is pumped up by 
our ES/F . . , you won't want to deflate 
it. We're so sure, that we offer an 
unconditional 30-day money-back 
guarantee and a one-year limited war- 
ranty. Over 2,000 TRS-80* owners hav* 
met the wafer . , . why don't you 




VBILI 




EXATRON*! 
TRINGY/FLC 



